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Weihnachten auf dem Commodore 


Vorwort 


Weihnachten, ein Fest der Tradi- 
tion. Wie jedes Jahr kramen die 
Familienväter ihren Heimcompu- 
ter vom Dachboden hervor, um 
sich endlich einmal wieder auf 
die wahrlich wichtigen Dinge im 
Leben zu besinnen. Denn was 
gibt es schöneres, als in ver- 
trauter Stimmung, gemeinsam 
mit seinen Liebsten, sich genüss- 
lich der Abtipperei hinzugeben? 


Auch dieses Jahr, in der 
inzwischen 5. Ausgabe, gibt es 
wieder eine Menge toller Pro- 
gramme zu entdecken. Unsere 
Autoren haben sich nicht ge- 
scheut, Sie ein weiteres Mal mit 
kreativen winterlich-weihnacht- 
lichen Listings zu überraschen, 
die sich sehen (und hören!) 
lassen können. Wie immer ohne 
Screenshots, denn das mühe- 
volle Abtippen möchte ja schließ- 
lich belohnt werden. 


Damit das ganze nicht zum Frust 
wird, ist wie jedes Jahr der 
Checksummer mit an Bord, der 
Ihnen helfen wird, die soeben 
eingetippte Zeile im Nu als „kor- 
rekt“ zu bestätigen. Darüber hin- 
aus sei auch an dieser Stelle 
erneut das sorgfältige Lesen der 
folgenden beiden Seiten emp- 
fohlen, denn dort finden Sie 


wertvolle und wichtige Hinweise, 
wie die Listings dieses Hefts zu 
verstehen und abzutippen sind. 


Und der wichtigste Tip wie 
immer zuerst: Speichern Sie 
die Programme am besten 
immer erst ab, bevor Sie sie 
laufen lassen! 


In diesem Sinne, eine fröhliche 
Weihnachtszeit und viel Spaß 
beim Abtippen! 


PROGRAMMVERZEICHNIS: 
Schnelleinstieg 
Seite 3 


Santa's 4th Mishap 
Seite 6 


Nachricht im Schnee 
Seite 7 


Season Walk 
Seite 9 


Kerzenpusten 
Seite 11 


Twinkle Twinkle Little Star 
Seite 15 


Sporty Santa 
Seite 16 


Wann war der Heilige Abend? 
Seite 19 


Schnelleinstieg 


Santa's Wörter-Quiz 
Seite 20 


BASIC-Reaktor 
Seite 22 


Weihnachtsspringen 
Seite 31 


Verzieren statt Verzehren 
Seite 34 


Winter Scenery 
Construction Kit 
Seite 39 


Wishlistmaster 
Seite 41 


Digitmon 
Seite 45 


Weihnachtsmann außer 
Rand und Band 
Seite 48 


Choplifter! 
Seite 54 


PET-Mas-Tree 
Seite 56 


Dungeons & Presents 
Seite 56 


Hero Of The 24th 
Seite 60 


Santa's Footrace 
(Hero Of The 24th - Part Il) 
Seite 62 


Und damit man nicht lange zögern muß, sondern wirklich sofort loslegen kann, hat Mac Bacon für uns 
wie jedes Jahr den Schnelleinstieg im Sack: 


10 a$ = 
20 b$ 
30 b$ 
40 b$ 
50 £for i =.1.to len(b$) 
60.8 c = asc(mid$(b$, 
Hr 0 print mid$ (a$, 
80 next 


c-64, 


"{down} {CTRL+N}Ed,Magst keinHolzwurm.b 
"bakkcikiguhjkuodkyrgmijkdmvkp 
b$ + "mnosmrwgooekkkkktgkfujjn 
b$ + "kiqoijkouvkiguhmoklgooxa 


3).) 
1)“, 
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So tippen Sie richtig 
Bitte lesen Sie die folgenden Hinweise aufmerksam durch, um späteren Frust zu vermeiden: 


1. Die Listings sind prinzipiell in Kleinbuchstaben verfaßt (z.B. 10 print"commodore. 64 
ist super"). Wenn Sie die entsprechenden Tasten auf Ihrem Commodore drücken, 
werden Sie feststellen, daß auf dem Bildschirm Großbuchstaben erscheinen (z.B. 

10 PRINT"COMMODORE 64 IST SUPER"). Dies ist vollkommen in Ordnung und auch 
genauso gewollt, Sie haben also alles richtig gemacht. 


2. Sollten Sie in einem Listing einmal einen (oder mehrere) Großbuchstaben entdecken, so 
müssen Sie diese in Verbindung mit der SHIFT-Taste drücken. Auf dem Bildschirm wird 
dann jedoch statt des Buchstabens (z.B. S oder H oder O) ein Grafikzeichen erscheinen 
(z.B. ein Herz oder ein Strich oder eine Ecke). Auch dies ist kein Grund zur Besorgnis 
sondern entspricht ebenfalls dem planmäßigen Vorgehen. 


3.. Die Anzahl von Leerzeichen können Sie im Normalfall anhand der drüber- und drunter- 
liegenden Zeilen durch Abzählen ermitteln. Beachten Sie, daß in den Listings zum Ende 
einer Zeile hin niemals abschließende Leerzeichen impliziert werden. Sollte die Zeile also 
im Listing in der Folgezeile fortgesetzt werden, so sind die beiden Teile nahtlos, also ohne 
dazwischenliegende Leerzeichen, abzutippen. Die einzige Ausnahme bilden Texte, bei 
denen natürlicherweise ein Leerzeichen zu erwarten wäre (wie z.B. 10 print"game 
over"). 


4. Um das Tippen von Steuerzeichen zu erleichtern, wurden diese nicht in Form eines 
Grafikzeichens, sondern in Form einer Abkürzung in geschweiften “{ }” Klammern 
abgedruckt. Wann immer Sie also auf geschweifte Klammern stoßen — suchen Sie diese 
Klammern nicht auf Ihrer Tastatur (Sie würden sie vergeblich suchen!), sondern schauen 
Sie in der folgenden Steuerzeichen-Tabelle nach, was diese Abkürzung bedeutet und 
welche Tastenkombination Sie drücken müssen. Auf dem Bildschirm erscheinen dann als 
Platzhalter letztendlich Grafikzeichen, jedoch in invertierter Form. 


Beispiel: “{rvon}” steht für “reverse on”, dies bedeutet, daß Sie die Tasten CTRL und 9 
gemeinsam drücken müssen. Auf dem Bildschirm erscheint dann ein invertiertes “R”. 


rvon}/{rvof} Reverse on/off (Invers an/aus) 
CTRL + 9/CTRL + 10 


up} {down} {left} {rght} Cursortasten ß 
| | CRSR UP/DOWN, CRSR LEFT/RIGHT 


| ggf. mit SHIFT 
blk}{wht}{red} {cyn} , Farbcodes (schwarz, weiß, rot, cyan, lila, grün, blau, gelb, 
{pur} {grn} {blu} {yel} orange, braun, hellrot, grau1, grau2, hellgrün, hellblau, grau3) 


orng}{brn}{lred}{gryl} 
gry2}{lgrn}{lblu}{gry3} 


CTRL.+ 1 bis 8 / CBM + 1 bis 8 


elr} Bildschirm löschen 
SHIFT + CLR/HOME 
‚ {home} Cursor in linke obere Ecke setzen | 
| 


CLR/HOME (ohne SHIFT) 


, Commodore-Taste und eine weitere Taste gleichzeitig, hier: Stern 


{CBM-*} 


{SHIFT-POUND} | Shift-Taste und eine weitere Taste gleichzeitig, hier: Pfundzeichen 
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Checksummer 


Da Sie trotz der vorhergehenden Hinweise 
immer noch Fehler beim Abtippen machen 
können — ein Zahlen- oder Buchstabendreher ist 
schließlich schnell passiert — wurden die Listings 
mit Prüfsummen (sog. „Checksummen‘“) ver- 
sehen. Somit haben Sie nach jeder eingetippten 
Zeile die Möglichkeit, anhand einer 4-stelligen 
Hex-Zahl zu überprüfen, ob Sie die Zeile korrekt 
abgetippt haben. Die Checksummen finden Sie 
am rechten Rand eines jeden Listings. 


Hierzu müssen Sie jedoch vorab erst ein kleines 
Hilfsprogramm — den „Checksummer“ — korrekt 
abtippen, welches Sie sich anschließend auf 
Diskette abspeichern sollten. Starten Sie Ihren 
Heimcomputer danach neu (ein RESET genügt), 
denn eine handvoll Listings in dieser Heftreihe 


enthalten Maschinenroutinen, welche ansonsten 
zu Absturz und Datenverlust führen könnten. 
Laden Sie nun den gespeicherten Checksummer 
mit ‚8,1 von Diskette und starten Sie ihn mit 
„RUN“. Sobald der READY-Prompt erscheint, 
tippen Sie “NEW” und geben dann das eigentlich 
abzutippende Programm ein. In der rechten 
oberen Bildschirmecke wird dann nach jeder 
Zeile die errechnete Checksumme angezeigt. 


Stimmt diese Zahl mit der im Heft gedruckten 
Checksumme überein (rechte Spalte neben dem 
Listing), so können Sie beruhigt weitermachen. 
Sollte die Checksumme einmal nicht korrekt 
sein, wissen Sie, daß Sie die Zeile nochmals 
überprüfen oder erneut abtippen sollten. 


Checksummer für den C64: 


fora=820t0984:readb:pokea,b:next:sys820:datal69,73,141,2,3,169,3,141,3,3,169 
data80,1741,4,3,169,3,1415,5,3,96,169,255,133,21,76, 13157164, 32,124,165,.173,0,2 
:data240,9,169,21,73,259,208,1,96,233,252,138472,152,72,165,20,7372554,1933,258 
datal62,0,134,2,189,0,2,133,253,240,44,36,2,48,4,201,32,240,33,201,34,208,6 

datal69, 255,69,2,133,2,160,8,6,253,42, 69,251, 74;,144,6,169,104,69,2523:133,252 
datal02,252,102,251,136,208, 235,232,208,205,.160,3,170,181,251,41,15732,207,3 
data153,30,4,136,.181,251,14,74,74,.74,324207,3,153,36,4,232,136410,.229, 169,1 

datal60,3,153,36,216,136,16,250,104,168,104,170,96,201,10,144,3,233,9,96,105 
data48,96 


ou b»wmN Ho 


Checksummer für den VC20: *) 


fora=820t01006:readb:pokea,b:next:sys820:datal69, 73,141,2,3,169,3,141,3,3,169 
data80,.141,4,3,.169,3,141,5,3,96,.169, 255,133,21,76,131,296,32,124,197,173,0,2 
DaAta2AD,6,108,.21,93,259,208,1,96,1393,252,138,12,192,72,165,20, 13,259, 1233,251 
data162,0,134,254,189,0,2,133,253,240,44,36,254,48,4,201,32,240,33,201,34,208 
data6,169,255,69,254,133,254,160,8,6,253,42,69,251,74,144,6,169,104,69, 252 
datal33, 252, 102,252,102,251,136, 208,235, 232,208,205,170,169,30,160,150,44,2 
datal44,48,4,169,16,160,148,141,196,3,141,209,3,140,220,3,160,3,181,251,41,15 
data32, 229,3, 153,18,30,136,181,251,74,74, 74, 74,.32,229,3,153,18,30,232,238, 16 
data229,160,3,169,2,153,18,150,136,16,250,104,168,104,170,96,201,10,144,3,233 
data9, 96,105,48,96 


vo,osuPsuMN Hm Oo 


*) Beachten Sie, dass Sie im Falle eines Listings, welches eine RAM-Erweiterung benötigt, den VC20- 
Checksummer ebenfalls bereits mit eingesteckter RAM-Erweiterung eintippen müssen 
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Schöne Bescherung! 


Santa's 4th Mishap 


Wie jedes Jahr steht der Weihnachtsmann unter 
Stress: Er ist wieder mal viel zu spät dran und 
hat noch unzählige Geschenke auszuliefern. 
Doch zu allem Überfluss ist seinen Rentieren 
auch noch der magische Feenstaub aus- 
gegangen! 


Also muß der Weihnachtsmann dieses Jahr auf 
die selbe Weise Schlitten fahren wie normale 
Menschen auch — nämlich auf dem verschneiten 
Erdboden. Doch bei all der Eile kann es hier und 


10 dimyc (13) :v=53248 
20 poke53281,14:poke53280,1 


30 pokev+37,9:pokev+38,2:pokev+39,1:pokev+40,8:pokev+41,8 

40 pokev+28,255:y=154:pokev+23,255:pokev+29,255 

50 poke2040,13:poke2041,14:poke2042,14 

60 p$ (0)="{wht} {CBM-O} {CBM-I} {CBM-I}{CBM-O} {CBM-P} {CBM-@} {CBM-P} 


{CBM-O} {CBM-I} {CBM-O}" 


70 p$ (1)="{CBM-O} {CBM-O} {CBM-O0} {CBM-I} {CBM-I} {CBM-I}{CBM-O} {CBM-O} 


{CBM-0}-{CBM-O}" 


80 p$(2)="{CBM-P} {CBM-P} {CBM-@} {CBM-O} {CBM-O} {CBM-P} {CBM-@} {CBM-P} 


{CBM-O} {CBM-P}" 


90 p$ (3) ="{CBM-P} {CBM-P} {CBM-@} {CBM-O}x{CBM-O} {CBM-P} {CBM-@} 


{CBM-P} {CBM-P}" 


100 q$="{home} {down} {down} {down} {down} {down} {down} {down} {down} 
{down} {down} {down} {down} {down} {down} {down} {down} {down}": | 

110 fori=0t03*63:reada:poke832+i,a:next 

120 fori=0tol3:readyc (i) :yc(i)=yc(i)+y:next 


130 goto5000 
200 print"{clr}{wht}{rvon} score: 
210 printq$"{down}"; 
220 fori=0to5:print"{wht} 
{rvon} 
230 print"{wht}{rvon} 


". 
’ 


240 poke2023,160:poke56295,1 


250 r=14:sp=.8:jc=0:sc 0:p1=0:p2=0:p3=0:p4=0:p=0 
260 pokev,100:pokev+tl,y:pokev+2,156:pokev+t3,y:pokev+4,212:pokev+5,y 


270 pokev+t21,7 


280 printq$right$ (p$ (p0) ,10-p)p$ (pl)p$ (p2)p$ (p3) left$ (p$ (p4) ‚p); 


290 d=d+sp:ifd<1then290 
300 d=d-1:sp=sp+.05 


310 p=p+t1:ifp=10thenp=0 :p0=pl:pl=p2:p2=p3:p3=p4:p4=int (rnd (1) *4) 
320 ifpeek (1719) =24thenon (yc (jp) >y-5) +290t0450,500 


330 ifjc=0then350 


340 jp=jp+1:jc=jc-1:pokev+tl,yc(jp) :pokev+t3,yc(jp+1) :pokev+5, 


yc(jpt+t2) :g0t0360 


350 j=peek (56320) :i£fj=111thenjc=11:jp=0 
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System: C64 
Autor: Endurion 


da passieren, daß man einen verschneiten Zaun 
übersieht. Während die Rentiere dieses Hin- 
dernis problemlos meistern, scheitern die Kufen 
des Schlittens daran, dieses Hindernis ebenso 
elegant zu umgehen. 


Mit einem Druck auf den Feuerknopf (Joystick in 
Port 2) kann der Schlitten jedoch im richtigen 
Moment über den Zaun springen. Wie weit wird 
es der Weihnachtsmann mit Ihrer Hilfe schaffen? 


7B97 
| F89F 
c791 
| 3318 
| 9A9A 
188B 


4827 
D7EF 
22AA 
913E 


D957 
7D1E 
AllE 
"14774 
0O6FE 
9B7E 
{rvof}"; :next 

{rvof} 3A72 
.OBED 
,140A 
3C14 
5470 
1EE7 
B125 
A057 
CCE3 
07C4 
CA8C 
C113 


665A 


360 r=29-r:poke2041,r:poke2042,29-r A040 


370 g0t0280 FFB9 
450 print"{home}"spc(12)"{rvon}oh no, you hit a fence!" FB47 
460 j=peek (56320) :if (jand16)=16then460 | DEB3 
470 j=peek (56320) :if (jand16)=0then470 3E15 
480 goto5000 FF02 
500 sc=sc+l:print"{home} {wht}{rvon} score: ";sc:goto330 2199 
5000 poke53281,0 | 7452 
5010 print"{clr}{down} {down} {down}{down} {down} {down} {down} {down} ' 9B3A 


{down}"spc(11)"{red}s{lred}afred}n{lred}t{red}a{lred}'{red} 
s{lred} {red}4{lred}t{red}h{lred} {red}m{lred}i{red}s{lred}h{red} 
a{lred}p{down} {down} {down}" 


5020 pokev,100:pokev+1,70:pokev+3,70:pokev+2,210 .FDFB 

5030 pokev+16,0:pokev+21,3 B4D5 

5040 print"{down}{down}{down}{gry2} it just won't end! santa is" 93E7 

5050 print" late and his reindeer are all out of" 6092 

5060 print" magic fairy dust." | 866F 

5070 print"{down} how far can you make it?" D977 

5080 print"{home} {down} {down} {down} {down} {down} {down} {down} {down} \ 620F 
{down} {down} {down} {down}{down}"spc(10)"press button to play" | 

5090 j=peek (56320) :if (jand16) =16then5090 54B6 

5100 j=peek (56320) :if (jand16)=0then5100 7EFF 

5110 pokev+21,0:poke53281,14:90t0200 27BB 
10000 data0,0,0,0,252,0,2,235,0,.0,15,192;,12 776A 
10010 datal3,0,63,13,64,63,13,64,255,206,128 c278 
10020 data85,94,128,127,223,128,127,223,240 ı 786A 
10030 datal27,223,148,127,223,1,127,215,193 5 1.9383 
10040 data21,87,193,1,6,193,1,7,193,85,85,84 A829 
10050 data85,85,84,0,0,0,0,0,0,129,0,0,0,0,0 75FD 
10060 data0,0,0,0,0,2,128,0,2,160,0,0,164,0 B3A5 
10070 data0,85,0,0,21,0,0,84,1,85,84,5,85,80 262C 
10080 data21,85,64,69,85,64,65,85,64,5,85,80 1D371. 
10090 data4,65,20,4,65,4,20,69,4,128,72,8,0 ıA4C7 
10100 data96,0,0,0,0,136,0,0,0,0,0,0,0,0,0,0 1503 
10110 data0,0,0,2,128,0,2,160,0,0,164,0,0,85 1046 
10120 data0,1,85,1,85,84,5,85,80,21,85,64,69 82E5 
10130 data85,64,1,85,64,1,69,64,0,64,80,0,64 98EF 
10140 data80,1,64,80,5,81,16,8,98,32,0,0,0 F618 
10500 data0,0,-4,-8,-13,-15,-15,-13,-8,-4,0,0,0,0 0478 
Waiting for a char to fall 

= = 
Nachricht im Schnee 
System: C64 


Autor: Stephan Freudenreich (Lynx) 


Es sind nicht immer Sternschnuppen, die vom _farbenfroh zu funkeln. Wer möchte, kann dies mit 
Himmel fallen — zu Weihnachten können das einem eigenen Text versuchen - in Zeile 23 kann 
schon auch mal Buchstaben sein, die sich zu die (bis zu 39 Zeichen lange) Nachricht 
einem weihnachtlichen Gruß zusammensetzen. angepasst werden. 

Und ist die Nachricht komplett, beginnen sie gar 


\ 
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rem * nachricht im schnee * 2022 stf£f 
print"{gry3}{clr}":poke53280,1:poke53281,1 
fora=1to1l0:pokel063+a*40,160 
forb=1to3:print"{blk}{rvon} un 
next:print:next 

fora=0t012:poke55335+a*40,0 

print" {rvon}{CBM-POUND} {CBM-POUND} {CBM-POUND}"; 
next:poke1503,232 
fora=0t030:pokel064+int (rnd(.)*94) *3,174:next 
fora=0t030:pokel664+rnd(.)*280,100:next 

10 fora=0to4 

11 t$(a)=mid$ ("{CBM-D} {CBM-V} {CBM-C} {CBM-F}{CBM-B}",a+t1,1) 
12 next:x=3:g=6 

13 fora=0to4:x=xX+x/1.8:y=rnd(.)*1 

14 g=g+2.8:w=.:0=g*.4:poke214,11-g/2:print 

15 fory=1tog:w=w+.4:printspec (x-w) "{grn}"t$(rnd(.)*2); 

16 forb=0tow+w:print"{rvon}"t$(rnd(.)*5) ;:next:print:next 
17 printspc (x-1)"{brn} {rvon} {CBM-K} {rvof}{CBM--}{wht}"; 
18 next 

19 rem die haelfte ist geschafft! 

20 rem wer moechte, kann hier aufhoeren. :) 

21 rem fuer die nachricht bitte weitertippen 


voouPwMN Ho 


22% 

23 t$=" frohe weihnachten mit dem commodore!" 

24 print"{home}"t$:s=1024:v=53248:b=13:c=56334:t=len (t$) 
25 rem hires :hoehe breite ER>SDIU :block 


26 pokev+28,0:pokev+23,1:pokev+29,0:pokev+16,0:poke2040,b 
27 forp=stos+tt 

28 y=int ( (p-s) /40) *#8:x=((p-s)-y*40) *8+24:y=y+50 

29 pokev+39, (pand7) +2:z=peek (p) :ifz<>32thengosub33 
30 next 

31 poke56256+rnd(:)*t,rnd(,)*8+2:g0oto3l 

32 rem zeichen ins sprite kopieren 

33 pokec,peek (c) and254:pokel,peek (1)and251 

34 fora=0t07:pokeb*64+a*3,peek (vta+tz*8) :next 

35 pokel,peek (1)or4:pokec,peek(c)orl 

36 rem sprite bewegen 

37 i£fx>255thenx=x-256:pokev+t16,1 

38 m=8:pokev,x:pokev+l,y+m:pokev+21,1: A 

39 form=8t0192:pokev+l,y+m:next 

40 pokep+24*40,z:pokev+21,0:return 
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EACF 
A35F 


\ 60F8 


BOC3 
2475 
450F 
2368 
8AD4 
ABFS5 
AB8F 


| CE4F 


4A8B 
614B 
D947 


| S1FD 
ı FA7D 


BOCC 
6FD9I 
971F 
05CC 


, DE63 


289C 
8BB7 
1043 
2693 
B443 
6BC6 
3F10 


\5110 


7DOA 
9IEF 
OBA9 
BF7C 
ADFO 
3DCD 


ıAF58 


DD8F 
83C7 
AESB. 
c803 
CD5B 


Ein Spaziergang durch die Jahreszeiten 


Season Walk 


Schon wieder ist Weihnachten und das Ende des 
Jahres in greifbarer Nähe. Und damit eine gute 
Gelegenheit, das aktuelle Jahr nochmals Revue 
passieren zu lassen und zu reflektieren, was 
man alles erlebt und tolles erreicht hat. Dabei 
kann dir auch das folgende BASIC-Programm 
helfen, symbolisch durch die Monate zu wandern 


System: C64 
Autor: Roman Werner 


und in die richtige Stimmung zu kommen, so 
dass du dich besser an deine Eindrücke von 
diesem Jahr erinnern magst. Und vielleicht 
macht es nach dem langen Eintippen ja auch 
gleich Lust an die frische Luft und in die Natur zu 
gehen und einen schönen Winterspaziergang zu 
geniessen. Auf jeden Fall: Viel Vergnügen! 


10 a=.:b=.:i=.:j=.:k=255:1=99:m=.:n=127:e=4*5:v=e*52:j2=e*55 \ 64CC 

20 vs=v+21:vk=v+24:v3=v+3:v5=vVv+5:v7=v+7:v8=v+8:v9=v+9:vc=v+43 AEFC 

30 dims (11,12) :dimm$ (11) :d$="{down} {down} {down} {down}{down}{down} |AD5SB 

":pokev+t32,6:pokev+33, 6 

40 poke648,4:pokevk,21:pokev+22,7 4993 

50 print"{clr}"tab(9)"{wht}*** season walk ***{down}" GI 

60 printtab (8) "2022 by roman werner {down} {down}" B8S5E 

70 printtab (5)"control: joystick in port2{down}{down}" 6454 

75 printtab (8) "up/down: walk/scroll" 1DA2 

76 printtab (6) "left/right: change month {down} {down}{down}" D496 

80 ,printtab(9)"... please wait ..." D9IFB 

90 £fori=.toll:readm$ (i) :forj=.tol2:reads (i,j) :next:next 557C 
100 pokev+23,19:pokev+27,1:pokev+28,2 FFO2 
110 pokev+29,31:pokev+41,1:pokev+42,1 8BDO 
120 £fori=.to62:readd:poke832+i1,d:poke896+i,k:poke960+i,.:next 8431 
130 fori=.tol91:readd:poke8192+i,d:next 4EED 
140 fori=.toll:readd:poke960+i,d:poke704+4i,..:next:poke705,1 3802 
150 fori=.to9 { \ 6A6B 
160 a$=mid$ ("{CBM-Y}ED{SHIFT-*}FR{CBM-P}{CBM-@} {CBM-T} ",i+l,l) | 2492 
170 forj=.t05:a$=a$+ta$:next:a$ (i)=left$(a$,39) :next:a$=a$ (9) 4F26 
180 rem *** build 7 screens in memory *** 0674 
190 £fori=.t06:a(i)=149+i*16:p(i)=10233+i*e:d=i*e:pokel0232+d,14 5AEO 
200 poke10233+d,13:pokel0234+d,15:poke10235+d,15:poke10236+d,11 39ED 
210 pokev+8,100:y4=100:pokev9, y4:poke648,36+i*4:print"{clr}"; E7E9I 
220 forj=.tol0:print"{rvon}"a$:next:printa$ (i) :ifi>3thenprint ı5A31 
230 printa$ (i*2and7) :printright$ (d$,i/2) :ifi>3thenprint"{up}"; 62B6 
240 printa$ (i*4and7) :printright$ ("{up} {up} {up} {down} {down}",2+i1/2); | DA4D 
250 printright$ (d$,i)a$(6) :next:pokev+1,138:y=122:pokev3,y 72B8 
260 y2=70:pokev+4,60:pokev5,y2:pokev+6,225:pokev7,y2+45 8FFg 
270 gosub520:gosub610:pokevk,a(.):pokevs,30:pokep(.),S 08BB 
280 rem .* +. maın Loop 7 C1F9 
290 ford=.tolstep. :j=n-peek (j2) :ifj=.thena=a/1.05 4B47 
300 ifjandlthenifa<lithena=a+.1 4B34 
310 ifjand2thenifa>-Ithena=a-.1 82A6 
320 ifjand4thenifqg=.andm>.thenm=m-1:gosub610 FF43 
330 ifjandßthenifg=.andm<11thenm=m+1:gosub610 73D1 
340 q=jand12:0=b:b=b+a:c=int (0o)<>int (b) :pokev8,x4:pokev9, y4 |, 7EC2 
350 ifb>7thenb=b-7:p=-1:y2=y2+pandn:pokev5, y2:pokev7,y2+45andn BAEC 
360 ifb<.thenb=b+7:p= 1:y2=y2+pandn:pokev5, y2:pokev7, y2+45andn 09D1 
370 ifm=3theny4=y4+16:ify4>152theny4=38:gosub580 7053 
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380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
495 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 


ifm>3andm<7thenx4=x4-3+rnd (.)*9andk:y4=y4-3+rnd(.)*T7andk 
ifm=7theny4=y4-.1:x4=x4+2:ifx4>kthenh=70:g0sub590 
ifm=8theny4=y4-6+rnd(.)*12:x4=x4+16:ifx4>kthenh=n:gosub590 
ifm=.orm=11theny4=y4+4:ify4>138theny4=44 :gosub580 
ifc=.thennext 

pokep (b) ,‚s:pokevk,a(b) :z=sgn (a) 

ify=lthenpokevs, 30 

ify>=1theny=y+(y-91) /8*z:ify<kthenpokev3, y:next 
ify>=kthenpokev3,k:y=.:pokevs,31:w=20:gosub520 
ifa>.thenifw>.thenw=w+c:pokev3,l+tw+tw:ifw=.theny=1l:next 
ifa<.thenw=w-c:pokev3,1l+w+tw:ifw=1thenpokevs,31l:next 
ifw=20theny=k:pokev3, y:pokevs,30:w=.:gosub520 
ifw=0thenify<ltheny=1 

next 

tem ‚*** placernext spritel. *** 
x=rnd(.)*192+64:pokev,x:pokev+t2,x:f=f+tzand3 
iff=.thens=128:t=6 

iff=lorf=2thensss (m, 3) :t=. 

iff=3thens=13:t=f 

pokev+40,s (m,t+4) :pokev+37,s (m,t+5) :pokev+38,s(m,t+6) :return 
rem *** set new sprite4 position *** 
x4=rnd(.)*192+64:pokev8,x4:pokev9, y4:return 
x4=10:y4=rnd(.) *h+55:pokev8,x4:pokev9, y4:return 

rem *** change) season; colors *** 
pokev+17,11:g0osub530:q=1:d=s (m, .) :poke648,4:poke646,s (m, 2) 
e=s (m,1l) :print"{clr}";:poke646,d:fori=1toll:printa$:next 
fori=36t060step4:poke648,i:print"{home} {rvon}"m$ (m) :next 
pokev+33,e:pokev+39,e:pokevc,d:y4=100:poke708,.:poke711l,. 
ifm=3thenpokevc, 6:90sub580 

i£fm>3andm<T7thenpokevc, 7:h=160:gosub590:ifm=5thenpokevc,1 
ifm=7thenpokevc, .:h=72:g0sub590 :poke708,8:poke711,64 
ifm=8thenpokevc, 8:h=190:gosub590 
ifm=.orm=11thenpokevc,1:gosub580 
pokev+32,d:pokev+17,27:return 

rem *** season color pairs *** 

data "january ",06,03,01,130,14,03,06,14,01,06,14,03,06 
data "february ",06,14,15,130,08,12,06,04,01,00,01,14,06 


data "march ",14,09,05,130,08,05,00;,08,13,.00,05,.13,00 
data "april ",04,06,14,130,14,05,13,11,14,00,14,15,06 
data "may ",03,05,13,129,01,08,07,15,06,00,05,13,11 
data "june nı4,13,01,429,05,0913,10,09,00,05, 13,23 
data "july ",06,05,13,129,13,09,05707,04,09,13,05,00 


data "august 07.13, 01,129,05708702,.091,08,06,09,13700 
data "september",14,05,07,129,07,08,10,08,07,00,08,10,00 
data "october ",172709708,130,08,10,00,15,.08,11,08,10,09 
data "novenper’",.15.12915.130.11,19,.19,12,19.41, 12.1511 
data "december ",06,01,15,130,15,14,15,08,01,00,13,01,05 
Beni 2 3SPENLEeN Ir EN h 

data 0,17,64,0,85,64,1,86,128,5,86,128,21,101,144,85,185,84 
data 86,238,84,91,103,148,110,170,228,182,170,120,234,170 
data 172,106,170,164,42,170,160,45,123,224,45,123,224,45 
data 123,224,42,171,224,106,171,228,106,169,100,85,87,212 
data 21,85,80 

zen: Fre SPELITE Zur? * 

data’ 0,16,0,0,32707,0,168,0,0,100,0,2,170,0,0,184,0,1,238,0 
data 2,169,0,-10,106,.128,2,166,0,11,187,128,70,238,64,38,170 
data 160,10,153,128,46,170,224,43,239,144,154,186,168,42 
data ’105,160,58,170,176,15,171,192,0,252,0,0 
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8B34 
DELE 
6F00 
9DCB 
E1DA 
FAlB 
5B5A 
83E4 
8652 
FEDD 
901D 
4405 
9D40 
536E 
O7CE 
BBIC, 
8626 
A79C 
3CD5 
S7EC 
1275 
E374 
BAD8 
E48B 
4E2F 
1080. 
DC6D 
B1F8 
ICFD 
82C6 
2979 
0839 
CDEA 
4BBl 


‚A7D7 


5FA4 
77FD 
DA89 
7C97 
B147 
FO31 
35D8 
3008 
E414 
69B7 
8EC1 
870E 


24E6 


C2E9 
CED3 
8F96 
4CEA 
E7D2 
B4AB 
8A0OC 
BRALF: 
04D9 
18F4 


950 Tem tr isprite 3 #7” 


960 data 0,138,0,2,170,128,10,234,160,10,235,160,42,171,168,42 
970 data 170,168,10,170,168,42,186,184,46,186,184,46,170,168,42 
980 data 170,160,42,170,232,10,234,224,10,234,160,2,170,128,0 
990 data 153,0,0,20,0,0,20,0,0,20,0,0,85,0,0,16,0,0 


1990: vem ı***sprite iA "A 


1010 data 0,2,0,2,33,128,0,130,0,2,74,0,18,162,36,40,138,136,10 
1020 data 161,128,8,130,32,36,162,36,40,137,168,10,74,32,0,168 
1030 data 128,10,42,128,2,25,32,0,42,0,0,168,0,0,40,0,0,40,0 


1040 data 0,40,0,0,170,0,0,32,0,0 
4950: gem #** lsprite 3 7%# 


1060 data 10,94,128,191,255,232,5,255,253,0,42,160 


Das „Zündholzspiel“ mal anders 


Kerzenpusten 


Der Weihnachtsabend neigt sich dem Ende. Es 
wird Zeit, die Kerzen am Baum löschen. Wie 
wäre es mit einem kleinen Wettstreit? 


Puste eine bestimmte Anzahl von Kerzen in den 
verschiedenen Reihen aus, aber so, dass der 


999 rem prepare screen 
1000 dim k(8,16) 
1010 poke53280,13: poke53281,5 


1020 print chr$ (142)chr$ (5)chr$ (147) 


1030 for j=0 to 9: for i=0 to 24 
1040 poke1984-1*40+5J,160 

1050 poke2023-i*40-5j,160 

1060 poke1034+i*40+7J,160 

1070 poke1053+i*40-7,160 

1080 next i,j 

1090 gosub 9200: gosub 9000 

1100 gosub 6000: goto 1520 

1499 rem input loop 

1500 get a$: if a$="" then 1500 
1510 z=asc (a$) 

1520 if z=17 then z=a+65: 
1530 if z=145 then z=at+63: 
1540 if z>132 and z<136 then 1700 
1570 if z=136 then 2360 

1580 if z<49 then 1500 

1590 if z>72 then 1500 

1600 if z>64 then 2100 

1610 if z<58 then 2200 


if z>72 then z=65 
if z<65 then z=72 


359D 
0837 
8A8C 
2421 
2761 
D794 
BA62 
B6F4 
03E9 
1AAD 


OCD4 


System: C64 
Autor: Eric Beitz 


Gegner die letzte Kerze auspusten muss! Wähle 
dazu zunächst eine Reihe mit einem Buchstaben 
oder mit dem Cursor und danach die Anzahl der 
zu löschenden Kerzen. ; 


Wer gewinnt? 


0345 
DS2E 
48F3 
9440 
E662 
65A2 
0E39 
E7BO 
34BC 
11DO 
6CAD 
0507 
287F 
913E 
9875 
c198 
61F4 
9B1D 
F186 
Tee2 
42F6 
E8D7 
9A2C 
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1620 
1700 
1710 
1720 
1730 
1740 
2099 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2199 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2299, 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2399 
2400 
2410 
2420 
2499 
2500 
2510 
2520 
2530 
2540 
2399 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 


goto 1500 

z=z-132: for i=1 to 3 
poke55574+i*40,1: poke55575+i*40,1 
next 

poke55574+z*40,2: poke55575+z*40,2 
sc=(z-4)*(-1): goto 1500 

rem interpret letter 

z=z-64: pokelll4+a*80,160 
p=55395+a*80-a 

for j=1 to 2*a: pokep+tj,1l: next 
pokell1l4+z*80,190: a=z 
p=55395+z2*80-z y 

for j=1 to 2*z: pokep+tj,2: next 
goto 1500 

rem interpret number 

if a=0 then 1500 

n=z-48: z=a 

if n>l(z) then 1500 

for s=1 to 2*z 

if k(z,s)=1 then gosub 2500 
next 

if max=0 then 2300 

if max=1 then 2400 

gosub 3000: a=0: goto 1500 

rem you loose 

print chr$ (19), 

print"verloren! nochmal?" 

get a$: if a$="" then 2320 


if a$="n" then print chr$(147): end 


for i=0 to 17 
poke1064+1,160: next 

gosub 9000: gosub 6000 
goto 1520 

rem cevi looses 

print chr$(19) 
print"gewonnen! nochmal?" 
poke53280,13: goto 2320 
rem put out next candle 
n=n-1: if n<O then return 
gosub 8200 

k(z,s)=0: l(z)=1(z)-1 
poke1134+z*80,1(z)+176 
return h 

rem cevi's turn 
pokell1l4+a*80,160 
p=-55395+a*80-a 

for j=1 to 2*a: pokep+tj,1: next 
poke53280,5 

t=0: ne=0: for z=1 to 8 

if l1(z)>O then t=t+1 

if l(z)=1 then ne=ne+tl 
next: na=ne and 1 

if t=1 then 3600 

if t=2 and max>2 then 3700 
if t=ne+tl then 3740 

for z=1 to 8: m(z)=0: next 
for z=1 to 7: for j=z+l to 8 


if l(z)=1(j) and m(z)=0 then m(z)=j: m(j)=z 
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1B61 
E9IDE 


ı BAAF 


0789 
C2A5 
A45B 
0434 
DEBS 
CD7A 
F820 


"| 3FDA 
, 1BB9 


ACA8 
5361 
B552 


, F4F4 


BSCcC 
F628 
B63B 
30D9 


‚64D7 
3869 


628A 
8A95 
7BDB 
5512 
B6B6 
FDD8 
2033 


ı C7DC 


6EA4 
9AE8 
694E 
9019 
0714 
D88E 
5cD1 
959D 
E19C 
00B3 
7F00 


ı354B 


7526 
1510 
583D 
1A72 
6326 
86AE 
7708 


, CB68 


825E 
CAEE 
3DE1 
B272 
F441 
FC99 


|E7D7 


D33B 


3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3500 
3510 
3520 
3530 
3600 
3610 
3620 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
5999 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6100 
6110 
6130 
6140 
7999 
8000 


8010 


8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 


next j,2 

z=0: j=0: n=0 

z=z+l: if z>7 then 3190 

if m(z)>O then 3160 

j=z: gosub 3500 

j=int (sc*rnd (1))+1 

if j>l and max>6+n then 3220 
if n>0 then 3250 

z=int (8*rnd(1))+1 

if 1l(z)=0 then 3220 
n=int(l(z)*rnd(1)) +1 

for s=1 to 2*z 

if k(z,s)=1 then gosub 2500 
next 

poke53280,13: return 

j=j+tl1: if j>8 then return 
if m(j)>0 then 3500 

if 1(z)>1(j) then n=1(z)-1(j): return 
n=1(j)-1l(z): z=j: return 
z=0 

z=z+l: if l(z)=0 then 3610 
n=1(z)-1: goto 3250 

z=0 

z=z+l: if z>8 then 3100 

if l(z)=1 then 3740 

goto 3710 ; 

z=0 

z=z+1: if l(z)<2 then 3750 
n=1(z)+na-1: goto 3250 

rem install candles 

i=1: max=32 

if i>max goto 6060 

z=int (8*rnd(1))+1 

s=int ((z*2)*rnd(1)) +1 

if k(z,s)=0 then gosub. 6100 
goto 6010 

for i=1 to 8 
pokell134+i*80,1(i)+176: next 
return 

if 1(z)>=8 then 6140 
klz,s)=1: i=i+tl: lL(z)=1(z)+1 
gosub 8000: z=69 

return 

rem light candle 
p=1123+z*80-z 
c=55395+z*80-z 

pokec+ts,1: pokepts, 93 
pokec+ts-40,7 

Boke54296,15: poke52277,1 
poke54278,68 

poke54273,129: poke54272,69 
poke54276,17: t=20: gosub 8888 
gosub 8777 

pokep+s-40,104: gosub 8888 
pokep+s-40,43: gosub 8888 
pokep+ts-40,42: gosub 8888 
pokep+ts-40,87 

return 


FD20 
CD76 
48FC 
CO5A 
\69C6 
A437 
08E8 
FCAC 
AOA4 
FC52 
5l1EE 
A88B 
BD04 
6A33 
C855 
5420 
2D9D 
F3DB 
6215 
9FC8 
414E 
D5F5 
FCO1 
A6DO 
1158 
9BCO 
191B 
FAOF 
6BBF 
EA55 
\ D7AO0 
4227 
9181 
0FC7 
FE86 
C85A 
9A00 
7AD7 
56D8 
9B45 
76FC 
CF6B 
63B8 
ADC6 
34cF 
FC80 
71B9 
5891 
0285 
F351 
DCOD 
3AEA 
D73A 
914A 
7A13 
| cc5F 
\ A4FFD 
5400 
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8199 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8777 
8778 
8888 
8999 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9150 
9:99 
9200 
9210 
9220 
9230 
9240 
9250 
9260 
9270 
9280 
9290 
9300 
9310 
9320 
9330 
9340 
9350 
9360 
9370 
9380 
9390 
9400 
9410 


rem put out candle 

p=1123+z2*80-z 

c=55395+z*80-z 

pokec+s-40,7 

poke54296,4: poke52277,170 
poke54278,68 

poke54273,89: poke54272,69 
poke54276,129: t=99: gosub 8888 
gosub 8777 

pokep+s-40,42: t=50: gosub 8888 
pokep+ts-40,43: gosub 8888 
pokep+s-40,104: gosub 8888 
pokec+ts-40,9: pokep+ts-40,46 
max=max-1 

return 

poke 54276,0: poke 54277,0 

poke 54278,0: return 

for j=1 to t: next: return 

rem draw tree 

poke1123,105: poke1124,95 
poke1163,32: poke1164,32 y 

for i=1 to 8: 1(i)=0: p=1123+i*80-i 
pokep+ti-10,i+128 

pokepti-9,160 

pokep, 105 

for j=1 to 2*i: pokeptj,32 
k(i,j)=0: next j 

pokeptj,95 

torNj=1IToN 23 +2 

pokep+39+j,96 

next j,i 

poke56115,9: poke56116,9 
poke56155,9: poke56156,9 

a=0 

return 

rem draw text and presents 

print chr$ (19): p=1086 

for i=1 to 30: read j 

if i>15 then p=1111 

pokep+i,j+128: next 

for i=1 to 6: print: next 

print chr$ (18) "letzte"chr$ (95) chr$ (105) 
print. chr$ (18)"kerze": poke1351,241 
print chr$(18)"verliert": print: print: print 
print chr$ (18) "waehle"chr$ (195) chr$ (105) 
print chr$ (18)chr$ (117) "letter"chr$ (107) 
print chr$ (18) chr$ (106) "+anzahl" 
for i=1 to 4: for j=1 to 8: read k 
if i=4 then i=5 

poke1295+i1*40+jJ,k: next j,i 
poke55654,2: poke55655,2: sc=2 

for i=1 to 12 

y=int (3*rnd (1)) +21 

x=int (37*rnd(1)) +1 

ce=int (13*rnd (1)) +2 
poke55256+y*40+x,1 
poke984+y*40+x,172 
poke55296+y*40+x,c 
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B7DD 
0707 
8630 
0192 
4196 
AA52 
EE96 
6ECA 
E1A4 
4A07 
D7A9 
0053 
E9D3 
E3B9 
057F 
AFAO 
3BEO 
EO2A 
E866 
8FEC 
E048 
7B81l 


:| 08E3 


E6B4 
9839 
544F 
C9CD 
46B9 
4A4D 
9624 
93927 
654A 
B4FA 
5A85 
3B5C 
FD34 
2691 

6D6D 
6971 

DOOC 
DA97 
65B2 
5912. 
FICC 
EF1B 
DADC 
AC73 
F368 
312C 
7F9A 
FB2E 
2231 

8855 
D287 
306B 
36AA 
1953 
94BF 


9420 pokel024+y*40+x,219 48C5 
9430 next \ 7C9B 
9440 data 85,11,5,18,26,5,14,67,67,67 1349 
9450 data 67,67,67,67,173,74,67,67,67,67 4933 
9460 data T,21,19,16,21,19,20,5,14,75 | 4165 
9470 data 140,133,137,131,136,148,6,49 443A 
9480 data 141,137,148,148,133,140,6,51 9DCD 
9490 data 147,131,136,151,133,146,6,53 C56E 
9500 data 142,133,149,160,160,160,6,55 8981 
9510 return 929A 


Zur musikalischen Untermalung 


Twinkle Twinkle Little Star 


System: C64 
Autor: arris 


Ein bekanntes kleines Liedchen, das im Aufgrund des kurzen Listings vielleicht auch die 
Deutschen auch unter einem weihnachtlichen ideale Fingerübung, um Ihre Kinder noch dieses 
Titel bekannt ist. Sie wissen nicht, unter Jahr mit dem Abtippen von BASIC-Listings 
welchem? Dann dürfen Sie selbst erraten - oder vertraut zu machen. 

vielleicht singen auch sofort Ihre Kinder mit, 

wenn sie die Melodie aus Ihrem Heimcomputer Schließlich hieß es schon damals: Früh übt sich, 


erklingen hören. wer ein großer Programmierer werden möchte! 
10 print"{wht}{clr}":poke53280,5:poke53281,5:print"{yel}" 2E3E 
20 print" vw orhrelNwieichinanehhetiiein" A6B9 
30 s=54272 f DFE6 
40 poke s+5,9:poke s+6,0 ı158A 
50 poke s+24,15 13FF 
60 : AF27 
62 rem next 3F92 
64 read hf,lf,dr 9AOB 
70 if h£=0 then 280 0656 
80 poke s+l,hf:poke s,1l£ D5D6 
90 poke s+4,17 2DD7 
100 for i=1 to dr:next | 4963 
110 poke s+4,16 F402 
120 for t=1 to 50:next ETCC 
130 goto 60 DFCA 
140 : 20A7 
200 datal.17,374,250717,371,250 F93C 
210. dataı25,1777250,25,277,250 48D5 
220 data 28,214,250,28,214,250 | AOF5 
230 data 25,177,500 | 9FOB 
240 data 22,227,250,22,227,250 ı 6105 
250: data 21,154, 250,21,154,250 5375 
260 data 19,63 ‚250,19,63 ‚250 6D34 
270 data 17,37 ‚500,0,0,0 F7A9 
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280 print "{red}{rght}{rght}{rght} {rght} {rght} {rght} {rght} {rght} 
{rght} {rght} {rght} {rght} {down} {down} {down} {down} {down} {down}und guten 
rutsch{down} {down} {down} {down} {down} {down} {down} {down} {wht}" 

290 £for j=1 to 1000:poke 1024+int (rnd (1) *1000),42:next 


300 end 


Ganz schön sportlich 


Sporty Santa 


Um für die Weihnachtszeit fit zu sein, hat sich 
der Weihnachtsmann eine ganz besondere 
Trainingsroutine ausgedacht: Seine Helferlein 
werfen Geschenke vom Dachboden nach unten 
und Santa muß sie mit seinem Sack auffangen. 
Dabei muß er sich geschickt nach links und 
rechts beugen, um so viele wie möglich zu 
erwischen. 


Doch damit die Herausforderung noch größer 
wird, bekommt er auch „böse“ Geschenke zu- 


N 


0FO5 


\paae 


System: C64 
Autor: Daimansion & Endurion 


geworfen, die er nicht fangen darf (erkennbar an 
der roten „XX“-Markierung).- Sollten während 
seiner Trainingseinheit drei dieser Geschenke in 
seinem Sack landen, ist der Spaß vorbei — also 
aufgepasst! 


Gesteuert wird der sportliche Weihnachtsmann 
mit dem Joystick in Port 2. 


10 v=53248:5=54272 AF84 

20 pokes,100:pokes+5,0:pokes+t6,4:pokes+t24,15 AB17 

30 pokev+32,0:pokev+33,0:pokev+37,1:pokev+38,2:pokev+39,10: 3022 

pokev+40,8 

40 pokev+23,1:pokev+28,1:pokev+1,200:pokev+3,210 ı 72D4 

50 poke2040,14:poke2041,255 | 9828 

60 fori=0to2*63:readx:poke832+i,x:next 2565 

70 £fori=0t02*63:readx:pokel6256+i,x:next B9B7 

80 c$(0)="{yel}{rvon}{SHIFT-POUND} {CBM-*} {down} {left}{left}{rvof} F4F5 

{pur} {CBM-*} {SHIFT-POUND}":c$ (1)="{blu} {rvon}OP{down} {left} {left} 
{pur}{red}xx":c$(2)="{grn}UI{down} {left}{left}{lgrn}{rvon}JK": 
c$(3)="{lred}{rvon}MN{down}{left}{left}{red}xx" 
90 pokev+21,0:sp(0)=13:sp(1)=14:sp (2) =254 | BEIC 
100 print"{celr}"; j 4263 
130. print"{down} {red}t{lred}h{red}e {red}s{lred}p{red} 9114 
o{lred}r{red}ty" 

140 print" {lred} {CBM-D} {red} {CBM-F} | 1E60 

150 print" {lred}* {lred}s{red}a{lred}n{red}t{lred}a {red} | 7019 
c{lred}l{red}a{lred}u{fred}s {red}* {lred} {rvon} | 
{SHIFT-POUND} {red} {rvo£f} {CBM-F}" | 

160 print" {lred} {CBM-D} F3EE 
{rvon} {red} {rvo£f} {CBM-F}" 

170 print" {lred} {CBM-D} 2613 


{rvon} {red} 
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{CBM-M} {wht} {rvof} {CBM-B}" 


180 print" {gry3}press button {gry3}to {gry3}play {wht} 
{rvon} {rvof} O0" 


190 print" {wht} 
{rvon} {rvof} {blk}{rvon}M{rvof}" 

200 print" {wht} 
{rvon} {rvof} {blk}{rvon}MM{rvof}" 

ZEO BEINE" {gry3}help {gry3}santa {gry3}catch {wht} 
{CBM-*}{rvon} {rvof}{SHIFT-POUND}" 

220 Dyiner ‘ {lred} {CBM-D} {red} 
{rvon} {lred} {rvo£f}{CBM-F}" 

230 print" {gry3}the {gry3}gifts {lred} {CBM-D} 
{rvon} {red} {lred} {rvo£f}{CBM-F}" 

240 print" {lred} {rvon} 
oO {red} {lred} P{rvo£f}" 

250 print" {lred} 
{rvon} {red} {rvo£f}" 

260 print" {lred} {rvon}EE{red} 
DDCC {SHIFT-*} F{SHIFT-*} {SHIFT-*}DE{rvo£f}" 

270 print" {gry3}but {gry3}dont {gry3}touch {lred} {rvon} 
{CBM-K} {red} {rvof} {CBM-K}" 

280 print" {wht} {rvon} {CBM-K} {CBM-Y} 


{CBM-Y} {red} {CBM-O} {CBM-P} {CBM-P} {CBM-P} {CBM-P} {CBM-O} {wht } {CBM-Y} 
{CBM-Y} {rvof} {CBM-K}" 

290 print" {gry3}the {red}evil {gry3}gifts! {wht} {rvon} 
{CBM-I} {CBM-I} {CBM-O} {CBM-@} {CBM-@} {CBM-P} {CBM-O} {CBM-O} {CBM-I} 
{CBM-I}{rvof}" 


300 print" {lred} {rvon} {CBM-K} 
{red} {rvof} {red} {rvon} {rvof} {CBM-K}" 
310 print" {wht}{rvon} 

{CBM-+} {CBM-POUND} {rvof}{CBM-H} {CBM-N} {rvon} {CBM-POUND} {rvof}" 
320 print" {brn} {rvon} {CBM-Y} {CBM-Y} 
{CBM-Y} {CBM-Y} {rvof} {brn} {rvon} {CBM-Y} {CBM-Y} {CBM-Y} {CBM-Y} {rvo£f}" 

330 print" {gry3}how {gry3}many {gry3}can {brn} 
{rvon} {rvof} {brn}{rvon} {rvof}" 

340 print" {brn}{rvon} {rvof} {brn} 
{rvon} {rvo£f}" 

350 Print? {gry3}you {gry3}do?" 


360 gosub1500 
1000 print"{lred} {clr}";:pokev,170:pokev+2,170:pokev+21,3 
1010 print"{home}{rvon}{grn} 
score: 0 fails: W 
1020 cd=0:1s=0.3:ff=0:pp=0 
1030 j=peek (56320) :dx=( (jand4) or ljanasyeoh: ifox=dxthen1060 
1040 pokev+2,dx*34+172:pokev,dx*20+172:poke2040,sp(dx+t1) 
1050 ox=dx 
1060 cd=cd+ls:ifcd<1then1030 
1070 ed=cd-l1:if(rnd(1)<.4)then1110 
1080 ifsd>Othensd=0:goto1110 
1090 rx=15+int (rnd (1) *3) *4:sd=1 
1100 print"{home} {down}"spce(rx)c$ (int (rnd(1)*4)) 
1110 print"{home} {down} {left}{inst}": poke218, 128 
1120 tx=1824+19+dx*4 
1130 ifpeek (tx) <>32then1150 
1140. g0t0o1030 
1150 cx=tx+54272:cc=peek (cx) andl5 
1160 ifcc=10orcc=7orec=5orec=6then1030 
1170 xx=tx:ifpeek (tx-1) <>32thenxx=tx-1 
1180 poketx-40,32:poketx-39,32:poketx, 32:poketx+1,32 


6772 


3D79 


36A0 


2c28 


‚B077.- 


c955 
A209 
DD2C 
8712 
B276 


c443 


4169 


8D16 
7381 
DDDF 
BB52 
665A 


6594 
D341 


, 644D 


BF4E 


B7D8 
F541 
B557 
9AB9 
6AC4 
F7CE 


2048 


91CE 
E29F 
9ED5 
89E6 
F059 
EOBE 
76DO 
3D59 
C66F 
c86B 
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{rvon} 


1190 
1200 


1210 sc=sc+l:print"{home} {grn}{rght}{rght}{rght}{rght}{rght}{rght} 
{left}{left}{left}{left}{left}{left}";sc;"{rvof}": 


ifcc=2then1220 
pokes+1,100:pokes+4,0:pokes+4,33 


pp=pp+t1:g90t01270 


1220 


1230 £f£f=ff+1:pokel024+31+ff*2,152:ifff<3then1030 
1240 print" {home} {down} {down} {down} {down} {down} {down}"spc (15)"{wht} 


pokes+1,40:pokes+4,0:pokes+4,33 


game over!" 


18 


1250 
1270 
1280 
1500 
1940 
1520 
2000 
2010 
2020 
2030 
2040 
2050 
2060 


gosub1500:9g0t090 
ifpp=5thenpp=0:1s=1s+.1 

goto1l030 

j=peek (56320) :i£fj<>111then1500 

j=peek (56320) :ifj=111then1510 

return 
data0,0,0,0,240,07,37,232,0,3,252,0,3 
data252,0,717253,0,1,253,0,9,.255,0,161 
data93,160,243,245,240,243,245,240,255 
data255,1927,63,255,192,3,253,0,3,255 
data192,3,255,192,3,2559,192,.2,190,128 
data2,130,128,15,195,240,15,195,240 
datal38 
data0,0,0,0,60,0,0,255,0,0,255,0,0 
data255,0,1,255,54,1,259,604,.1,127.192 
data40,87,104,60,253,124,60,253,124,63 
data255,240,15,255,240,0,255,0,3,255 
datal92,3,259,192,37259,192,2,190,128 
data2,130,128,15,195,240,15,.19572409 
Jdata0, 0,.0,0,.15,07,0,637.292707637,192,0 
data63,192,0,.1277208,0,127,208,0,95 
data240,10,21,218,15,63,95,19,63,95,15 
data255.,252783,295,292,0,255,192,3,.2353 
datal92,3,255,192,3,2553,419242,190,228 
data2,130,128,15,195,240,15,195,.240 
datal38 

dataD} .07.07.07:04395.3709,4192,7,193,224 
datea1,255,224,7,259,224,3,255,19243 
data255,192,1,2557128,17255,128,1,255 
datal28,3,25572927837255,192,7152535,.224 
data7,255,224,15,255,240,15,255,240,15 
data255,240, 7,2557224,3,255,192,0507,0 


Weihnachten auf dem Commodore 


2076 
6BE5 
64E9 


8642 
B066 
2830 


831B 


E7F7 
2F6E 


\ FB8F 


BDF7 
6D4A 
2452 
3281 


‚ ACOB 


646F 
780B 
CEEO 
8EE7 
A92C 


\ 9FD8 


641F 
4012 
9819 
607C 
CE4C 


ı BFD6 


3ADA 
2D37 
7ESE 
9D22 
859B 
62C7 
48DD 
236A 


\ EC7A 
ı E2AB 


EA68 


Ein weihnachtlicher Wochentagsrechner 


Wann war der Heilige Abend? 


Wer in weihnachtlichen Erinnerungen schwelgt, 
der wird sich vielleicht die Frage stellen, an wel- 
chem Wochentag der Heilige Abend eines 
bestimmten Jahres stattfand - z.B. im Geburts- 


System: C64 
Autor: House Of Pain 


Damit diese Frage auf keinen Fall zu weih- 
nachtlichen Streitereien führt, gibt uns dieses 
Programm die Möglichkeit, eine computergenaue 
Antwort zu erhalten. 


jahr der Kinder, oder dem der Großeltern. 


10 rem Aa A A ce A a A a a a a a a a a a 7676 
20 rem *** 24. dezember Ar 13E4 
30 rem *** a little Ga 62BF 
40 rem *** basic program Rx 4980 
>50 rem *** by house of pain .‚*** 3BEl 
60 rem *** made 2022 EUR 1A4D 
70 rem *** for weihnachten BR B269 
80 rem *** auf dem commodore *** 31C8 
90 rem KAAKKAAKKKAHK KA HK KA AKA KH A HH 1B33 
100 print"{clr}":poke53280,0: poke53281,0 9AA6 
110 print"{yel}{down}{down}{down}wann war der heilige abend?" AC6D 
120 print"{down}version: commodore 64" D941 
130 a$=" geschrieben fuer weihnachten auf dem c= von h.o.p. * druec | 0947 
ke space *" 
140 fort=1tolen (a$) 3338 
150 print" {home} {down} {down} {down} {down} {down} {down} {down} {down} BlDE. 
{down} {down} {down} {down} {down} {down} {down} {down} {down} {down}"mid$ (a$, 
t,40); 
160 ford=1tol00:nextd 647D 
170 get b$: if b$=" "then200 27FC 
180 next t | 5EC1 
190 goto ‚140 | 32DD 
200 prant MLelich" | 475C 
210 input"eingabe des jahres";j | 85E1 
220 d=24:m=12 ı 71D3 
230 n=d+2*m+int (.6* (m+1) )+j+int (j/4)-int (j/100) +int (j/400) +2 | 6082 
240 n=int ( (n/7-int (n/7))*7+.5) | 8C46 
250 n=2*n+1 6955 
260 print: c$="" EEBO 
270 ifn=1thenprint"samstag"; B720 
280 ifn=3thenprint"sonntag"; O5CE 
290 if£fn=5thenprint"montag"; A73B 
300 ifn=7thenprint"dienstag"; 6358 
310 if£fn=9thenprint"mittwoch"; 4692 
320 ifn=11thenprint"donnerstag"; 4868 
330 if£fn=13thenprint"freitag"; ı 3540 
340 print", der 24. dezember";j | 9654 
350 print: print"neue abfrage (j/n)?";c$ 7AAO 
360 get c$: if c$="j" then 200 E55D 
370 if c$="n" then 390 4909 
380 goto 360 313A 
390 print"{clr} ":poke53280,14: poke53281,6: poke646,14 22F1 
400 end 7BCE 
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Weihnachtliches Wörterraten 


Santa's Wörter-Quiz 


Ein kniffeliger Ratespaß für die ganze Familie! 
Errate das Lösungswort mit weihnachtlichem 
Bezug, um die Wartezeit bis zur Bescherung zu 
verkürzen. 


Gleich zu Beginn wird dir mitgeteilt, um wie viele 
Zeichen es geht, denn das Wort kann bis zu 20 
Buchstaben enthalten. Um dir nach jedem 
Versuch zu helfen, zeigt dir das Programm die 
Buchstaben, die in dem Wort vorkommen, in 
gelber Farbe an und Buchstaben, die sich 
bereits an der richtigen Stelle befinden, in grüner 
Farbe. Hier kannst du dir viele verschiedene 
Strategien einfallen lassen, um das Ziel zu 
erreichen. 


Aber Vorsicht: je kürzer das Wort ist, desto 
weniger Versuche stehen dir zum Lösen des 
Rätsels zur Verfügung. 


100 VomrarrHH HH A A HK A a a a a € 


105 rem**** santas woerter quiz 


110 VomraraH HH HK A U U A HK a a € 


115 rem*** bildschirm und variablen *** 


120 rem*** vorbereiten 


130 hs=0 
135 read dx$ 


140 anz=anz+l:if dx$="musix"then ‘150 


145:goto 135 


150 dim eg$ (20) :dim dx$ (20) :dim dw$ (20) 


155 poke53280,11:poke53281,0 
ISOrprinE"elr}" ; 
165 print 


170 print"{gryl}*{blu}*{lblu}*{cyn}*{wht}*** {grn}X {red} 


ArrKk 


System: C64 
Autor: Levty, Fepo, Vok-Gear 


Mit der Minus-Taste "-" kannst du jederzeit 
aufgeben und dir das Wort anzeigen lassen. 
Aber wer will das schon?! 


Für einen lang anhaltenden Spielspaß sorgen 
eine ausgeklügelte Highscoreberechnung und 
eine nahezu unbegrenzte Erweiterbarkeit. 
Dieses Programm spielt man immer wieder 
gerne! Der Datensatz ist beliebig erweiterbar, zu 
beachten ist nur, dass das letzte Wort immer 
"MUSIX" sein muss, um die Ratewörter von den 
Data-Zeilen der Musik zu trennen. 


Ebenfalls denkbar ist der Austausch des 
Datensatzes durch andere Themenbereiche 
(z.B. Städtenamen, Tiere, Musikinstrumente, 
Namen der Weihnachtsgäste, ...). So bietet 
Santa's Wörter-Quiz auch bis weit über 
Weihnachten hinaus einen pfiffigen Spielspaß. 


\6F11 
\ 7AA9 
E571 
5144 


xr%* 1218 


125 romr Hr AH A A € 


BC35 
\ 9762 
4034 
B6BB 
| F7C5 
| 7C17 
FC3B 
7523 
.| ED47 
| 064C 


santa's {wht}woerter {red}quiz {grn}X {wht}***{cyn}*{lblu}*{blu} 


*{gryl}”"; 


175 print"{gryl}{CBM-T} {blu} {CBM-Y}{1lblu} {CBM-U} {cyn} {rvon} {CBM-T} 


{wht } {CBM-O} {CBM-P} 


{CBM-I}{rvof}{1lblu} {CBM-U} {blu} {CBM-Y} {gryl1}{CBM-T}"; 
{CBM-T} {CBM-Y} {CBM-U} {CBM-U} {CBM-U} {CBM-U} 


180 print"{wht} 


AOOF 
{CBM-P} {CBM-O} {cyn} 


| 
ı 66E4 


{CBM-U} {CBM-U} {CBM-U} {CBM-U} {CBM-U} {CBM-U} {CBM-U} {CBM-U} {CBM-U} 
{CBM-U} {CBM-U} {CBM-U} {CBM-U} {CBM-U} {CBM-U} {CBM-U} {CBM-U} {CBM-U} 


{CBM-Y} {CBM-T}" 
185 print" 


305 rem* wort ermitteln und bestimmen * 


20 Weihnachten auf dem Commodore 


highscore:";int (hs) 
300 Vaomrrrr HH HK A AK A KK € 


DOBD 
ı39D2 
ı 4D9C 


310 
315 
320 
325 
| 330 
335 


LOmMrrrrH A A a A a a a a a a a a a 

restore 

fori=1ltoint (rnd (0) *anz) 

readdw$ 

nexti 

dw=1len (dw$) :print" {down} {down} das wort hat{lgrn} 


";dw;"{wht}zeichen." 


345 
400 
405 
410 
415 
420 
425 
430 
435 
440 
445 
450 
455 
460 
465 
470 
475 
480 
485 
500 
505 
510 
515 
520 
525 
530 
535 
540 


| 
| 


545 
550 


555 
560 
565 
570 
58 
580 
585 


590 
1000 
1005 
1010 
1015 
1020 
1025 
1030 
1035 
1040 


print"{down} du hast {yel}"; (dw*2) ;"{wht}versuche." 
print t 
LEMHrHrARH RT KH KH KH KH KH KH KH KH KH KK 

rem* worteingabe = 

romrarrr a a a a a a a a a a a a € 

x=0 

print"versuch "; 

forb=1todw:print"*"; :nextb:print 

veg$="" veg$="" 

z=0 

ifx>=9thenprint"{wht} ";x+1; 
ifx<9thenprint"{wht} ";x+1; 

input" {wht}";ieg$:ifieg$=""then450 
forr=1to31 

print"{left}"; 

nextr 

ifieg$="-"thenprintdw$:g0ot0570 

fora=1ltodw 

anw$=mid$ (dw$,a,l) 

eg$=mid$ (ieg$,a,l} 
ifeg$=anw$thenprint"{grn}";eg$; :z=z+1:90t0530 
forb=1todw 

bnw$=mid$ (dw$,b,1) 
ifeg$=bnw$thenprint"{yel}";eg$; :g0t0530 

nextb 

ifeg$<>anw$thenprint"{red}";eg$; 
nexta:print:x=x+1 

ifx>=(dw*2) andz=dwthengoto550 


ifx>=(dw*2)andz<>dwthenprint"{wht}das gesuchte wort war:";dw$: 
goto570 


ifz<>dwthen430 
ifz=dwthenprint: 


print"richtig! du hast";x;"versuch/e gebraucht." 


pk= (dw/x) *1000 

ifpk>hsthenhs=pk 

print"punkte:";int (pk) :gosub 6000 

print"nochmal"; :input a$ 

ifa$<>"j"then585 

gotol60 

Brinttelr4ls print” {wht}v{red}i{grn}el{red}e{wht} 


n d{red}a{grn}!n{red}k{wht}," 


print"{down} {wht}dass du unser spiel gespielt hast!":end 
Lama HH A U A U U A A € 


rem* data * 
romrrrH a a a 
data winter, tannenbaum, christbaum 
data schnee, schneemann, weihnachten 
data geschenk, lametta,engel 

data weihnachtsbaum, lichter,kugel 
data tannenzapfen, adventskranz, kerze 
data krippe, sterne, kekse 


0E19 
D1B6 
A6DA 
BF4C 
5430 
513D 


BB56 
3626 
FICD 
3728 
7BAD 
F6FA 
B8EO 
F8C6 
2ESB 
9D91 
ODE3 
3B80 
4E76 
0093 
1C4D 
CD9A 
5D2B 
8853 
2561 
D552 
CB89 
F161 
2FD6 
E7E6 
57DO 
110C 
3AlB 
592Al 
6199 


FC7E 
E593 


6E26 
0E61 
E43D 
AASE 
DA37 
E21D 
02E8 


5B35 
63BB 
5FA4 
1885 
c17B 
4EF7 
17CA 
3073 
AB95 
1D3E 
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1045 data plaetzchen, adventskalender, frost 

1050 data schneefall,wichtel, weihnachtsmann 

1055 data weihnachtsbaeckerei, feiertage, sternschnuppe 
1060 data eiszapfen,schlittschuh, schlitten 

1065 data christkind, weihnachtsmarkt,punsch 

1070 data pfeffernuesse, nuesse, lebkuchen 

1075 data lichterkette, weihnachtsschmuck, weihnachtslieder 
1080 data gedichte, krippenspiel,schneeflocke 

1085 data mandarinen, zuckerstange, kirche 

1090 data nussknacker, zimtsterne, julklapp 


1095 data blitzen, rentier,donner 
1100 ‚data dasher, dancer,prancer 
1105 data rudolph, vixen, cupid 
1110 data comet, santa,grinch 
5999 data musix 

6000 restore 


6005 read m$:if m$<>"musix" then goto 6005 


6010 s=54272 

6015 for 1=s to s+24:poke 1,0:next 
6020 poke s+5,9:poke s+6,200 

6025 poke s+24,15 

6030 read hf,1lf,dr 

6035 if hf<O then return 

6040 poke s+l,hf:poke s,1lf 

6045 poke s+4,33 

6050 for t=1 to dr:next 

6055 poke s+4,32:for t=1 to 50:next 
6060 goto 6030 

6065 data 25,177,250,28,214,250 
6070 data 25,177,200,25,177,250 
6075 data 25,177,125,28,214,125 
6080 data 32,94,150,25,177,250 
6085 data 28,214,250,19,63,250 
6090 data 19,63,250,19,63,250 

6095 data 21,154,63,24,63,63 

6100 data 25,177,250,24,63,125 
9109. dawa rl, 037290, Ir ir! 


Hier geht's um die Wurst 


BASIC-Reaktor 


Wer kennt sie nicht, die Spielshows aus dem 
Fernsehen, die insbesondere auch zur gemüt- 
lichen Weihnachts-Familienzeit für Unterhaltung 
sorgen. Hin und wieder bekäme man da schon 
- Lust, auch mal selbst mitzuspielen. 


„BASIC-Reaktor“ bietet einem genau diese 
Möglichkeit — hier kann man zu zweit in einer Art 
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System: C64 
Autor: Goodwell & Daimansion 


„virtuellen Spielshow“ gegeneinander antreten 
und seine Scharfsinnigkeit unter Beweis stellen, 
denn es geht hier, wie der Name schon sagt, um 
schnelle Reaktion. Wie der Programmierer uns 
mitteilt, ist das Spiel allerdings auch nicht direkt 
irgendeiner Spielshow nachempfunden, sondern 
einem “Spiel fürs Mobiltelefon, welches einen 
ähnlichen Titel trägt. 


Es sind 6 Disziplinen enthalten, allerdings ist das 
Listing so strukturiert, dass man nicht zwingend 
alles abtippen muss — wer es also eilig hat, um 
am Heiligen Abend noch in. den Genuß eines 
Reaktions-Wettstreits zu kommen, der kann die 
hinteren Disziplinen einfach auslassen — wie das 
geht, verrät der Kommentar in Zeile 1. 


Der Spielablauf erklärt sich quasi von selbst — 
Spieler 1 benutzt die <Leertaste>, während 
Spieler 2 die <RETURN>-Taste verwendet. In 
jeder Runde gibt es eine Aufgabe zu meistern, 
z.B. eine gewisse Anzahl an doppelten Bildern 
zu erkennen oder die Hintergrundfarbe dem 


geschriebenen Farbwort zuzuordnen. Sobald es 
„passt“, wird einfach die entsprechende Taste (so 
wie im Fernsehen der „Buzzer“) gedrückt, und 
wer schneller ist als sein Mitspieler, der erhält 
den Punkt. 


Einen Hinweis sendet uns der Programmierer 
noch: Die zeitlichen Aspekte des Programms 
sind mithilfe von „TI“ implementiert, d.h. falls 
jemandem die BASIC-bedingte Tastenerkennung 
zu träge sein sollte, lässt sich das Spiel auch 
problemlos auf einem moderneren FPGA-Gerät 
o.ä. im Turbo-Modus laufen. 


1 rem sa=spiel-anzahl. hier zb 1 angeben und nur bis zeile 254 ab | 647F 
tippen $ | 
2 rem ra=rundenanzahl pro spiel. ı 9114 
3 dimsf (1,7) :s£(0,0)=214:s£f(0,1)=52:sf(0,2)=39:sf(0,3)=68 3FF3 
4 s£(0,4)=32:s£f(0,5)=187:s£f(0,6)=104:s£f(0,7)=4/60 007B 
5 s£f(1,0)=146:s£f(1,1)=166:sf(1,2)=27:s£f(1,3)=110 6AAB 
6 s£f(1,4)=128:s£f(1,5)=18:sf(1,6)=117:s£f(1,7)=6/60 1B47 
10 sa=6:ra=3 5E37 
11 dimc$ (4) :dimcen (4) :dimsp (1) :dimz$ (9,4) D39A 
12 dimb$ (4,4) :dims$ (5,2) :dimh$ (7,2) :dimsm (5) :dimsc (5) :dimd$ (11,4) OD4C 
13 def£fnzz (m)=int (rnd (1) *m+1) 40D5 
15 poke53281,0:poke56328,0:si=1:x=0:sf=54272:pokesft24,15 45B1 
16 t1$=" {rvon}B":tr$="B{rvof}" , 2ECE 
17 2810, 0)="**#":2$(1,0)=" *":28(2,0)="+##W22$(3,0)="*#Rn:;zS(a, | | 8058 
0)="* x" 
TO LES OFT SPARTE I) USA ZEDTTEN VENIZEITZ I TI EN I SAN, B59IC 
IIZWR “" 
LINZ, ZYFTATENIZSCh, 2) SUN ANZ DIDI EUER RRNEZESCHN, 73D2 
2) ="rRxn 
ZU ZONE az SEN EZB RD ONE ZULST ST A azned, c4B2 
Sy-M +" 
21 2$(0,4)="KFH1,ZzS(1,4)=" RVrZzS(2,A4)=VHRRUrZSs (3, A)" RR ZS la, 77D1 
4)=" “" 
DIR DONE ZONE LO REIST OENB) ER ZSlO, | A3DE 
0)="rRK0 f | 
ZENSUR NIT LH NIZELT DEU UFAN ZEN BETEN EU ZELO, FD84 
17-08 x “* | 
ZU ZELL ZI TARA IE DEFENSE IE IE E ZIFFERN ZSLO | FB5D 
2yataren 
ZANZENDFDI TEN EZSLO DATEN W U  ET Se U ER SE TEE REN ZEN), 8645 
3)=" x" 
26 2519, A) VAR ZEILE AT EREN ZELTE RUNEIZS (SA) SIERT ZEN, 8A19 
4)="rRRn | 
27 cr$="{down}{left}{left}{left}":c5$="{down} {left}{left} {left} ı5D24 
{left} {left}" 
28 le, "+ors+" "+eor$+" "+orS+" "+cr$+" " EOB8 
30 poke198,0:z1=0:t1$="willkommen zu": 0238 
t25=etp ars ı.,.© reakt o r":gosub48 
31 print"{home} {down} {down} {down} {down} {down} {down} {down} DCF7 
{down} spieler. 1: {rvon}leertaste" 
32 print"{down} spieler 2: {rvon}return" 19372 
33 print"{down} {rght} {rght} {rght} {rght} {rght} {rght} ı 794D 
jedes spiel laeuft {rvon}"ra"{rvof} runden" 
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34 print" {down} {rvon}{rght}{rght}{rght}{rght} {rght}{rght} {rght} 
N N nee mit taste" 

35 geta$:ifa$=""then35 

41 rem runden-management 

42 poke53281,0 

43. onsigosub200,300,400,500, 600,700 

44 ri=1:si=ssitl: ifsi<= sathen42 

46 gotol30 

47 rem hauptbildschirm 

48 t1=(30-1len(t1$))/2:t2=(30-len (t2$))/2: 


50 print"{clr}{gry3} {rvon} 
VCCCCCeCCeeCeCeeecccccccccccccCcccl{rvof}" 

52 fori=0to4:printtl$" ‘ "tr$:next 

54 print" {LVroN} JCCETCTCCETEECCCECESEETGEGCGCEEEECRTFVOER}" 


56 print"{home} {down} {down}"; 

58 print"{rght}{rght} {rght} {rght} {rght}"; :fori=0totl:print"{rght} 
";rnext:print"{rvon}"t1$ 
it) print" {down} {rght} {rght} {rght} {rght} {rght}";: fori=0tot2: 
print"{rght}";:next: print"{rvon}"t2$ 

61 rem zeitleiste 

62 print" {down} {down} {down} {down} {down} {down} {down} {down} {down}": 
ifzl=O0thenprint" {down} {down}":g0t070 

64 print" {CBM-A} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} 
{SHIFT-*} {SHIFT-*} {SHIFT-*}{SHIFT-*} {SHIFT-*}{SHIFT-*} {SHIFT-*} 
{SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} 
{SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} 
{SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {CBM-S}" 

66 print"{SHIFT-*} {SHIFT-*}{SHIFT-*} 
ISBIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} 


68 print" {CBM-Z} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} 
{SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} 
{SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} 
{SHIFT-*} {SHIFT-*} {SHIFT-* } {SHIFT-* } {SHIFT-*} {SHIFT-*} {SHIFT-*} 
{SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {CBM-X}" 

69 rem punkteanzeige 

70 print"{rght}{rght}{rght}{rght} {rvon}{blu}spieler l{rght}{rght} 
{rght}{rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} 
{rght} {grn}spieler 2{gry3}" 

72 pk=0:x=1:gosub102:pk=1:x=1:gosub102 

74 x=rnd (-ti) :x=0:return 

75: zem 5x3 raster 

76 print" {home} {down} {down} {down} {down} {down} {down} {down}" 

78 print"{rght}{rght}{rght} {rght} {rght} {rght} {rght} {rght} {rght} 
{rght} {rght}{rvon} {gry2}U{SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} 
{SHIFT-*} {CBM-R} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {CBM-R} . 
{SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} I" 

80 fori=0to2:print"{rght}{rght}{rght}{rght}{rght} {rght}{rght} 
{rght} {rght} {rght} {rght} {rvon} {gry2}B B B B":next 

82 print"{rght}{rght}{rght} {rght} {rght} {rght} {rght} {rght} {rght} 
{rght} {rght} {rvon} {gry2} {CBM-Q} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} 
{SHIFT-*} {SHIFT-+} {SHIFT-* } {SHIFT-* } {SHIFT-*} {SHIFT-*} {SHIFT-*} 
{SHIFT-+} {SHIFT-* } {SHIFT-* } {SHIFT-* } {SHIFT-*} {SHIFT-* } {CBM-W}" 

84 £fori=0to2:print"{rght}{rght}{rght} {rght} {rght} {rght} {rght} 
{rght}{rght} {rght} {rght} {rvon} {gry2}B B -B B":next 

86 print"{rght}{rght}{rght}{rght}{rght} {rght} {rght} {rght} {rght} 
{rght} {rght} {rvon} {gry2}J{SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} 
{SHIFT-* } {CBM-E} {SHIFT-*} {SHIFT-* } {SHIFT-*} {SHIFT-*} {SHIFT-*} {CBM-E} 
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| 10B3 


\ 1EOF 
\ 4983 


FB5SD 


13158 


520C 
4025 
3488 
A62E 
7011 


\ C41A 


85A9 
D131 
4282 


8952 


46AC 
5F19 


10551 


BC22 


C50E 


c0D8 


| CEBB 


| 1124 


B781 
FAEE 
9160 


ı A48A 


DCF4 


AlOC 


{SHIFT-*} {SHIFT-* } {[SHIFT-*) (SHIFT-* } {SHIFT-*} K":return 

87 rem 5x5 raster 

88 print"{home} {down} {down} {down} {down}" 

90 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} 
{rght} {rght }U{SHIFT-*} {SHIFT-* } {SHIFT-*} {SHIFT-*} {SHIFT-*} {CBM-R} 
{SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-* } {SHIFT-* } {CBM-R} {SHIFT-*} 
{SHIET-FHESHLET-* HL SHIET-* }{SHIET-* IT” 

92 fori=0to4: DEInE N Ent Lane Traht Haken Teguhteghe) 
{rght}{rght}{rght} {rght}B B B B":next 

94 print"{rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} 
{rght} {rght } {CBM-Q} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} 
tSHIET-+}{SHIFT-*}LSHIFT-*} {SHIFT-* }{SHIFT-* } (SHIFT-*}H{SHIFT-+} 
{SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-* } {SHIFT-* } {CBM-W} " 

96 fori=0to4:print"{rght}{rght}{rght}{rght}{rght} {rght} {rght} 
{rght} {rght}{rght} {rght}B B B B":next 

98 print"{rght}{rght}{rght}{rght}{rght}{rght} {rght} {rght} {rght} 
{rght} {rght } JCCCCC {CBM-E } {SHIFT-*} {SHIFT-*} {SHIFT-*} {SHIFT-*} 
{SHIFT-*} {CBM-E} {SHIFT-* }{SHIFT-*}{SHIFT-*} {[SHIFT-*} {SHIFT-*}K": 
return 

99 rem punktestand aktualisieren 

100 ifx=O0thenprint"{rvon}"; 

102 print"{home} {down} {down} {down} {down} {down} {down} {down} {down} 
{down} {down} {down} {down} {down} {down} {down} {down} {down} {down}{down} 
{rght} {rght} {rght}"; :ifpk=1Ithenprint"{rght} {rght} {rght} {rght}{rght} 
{rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} 
{rght} {rght}{rght} {rght} {rght} {rght} {rght}"; 

104 ifsp(pk)<Othenprint" NCHSN VERS ATNORSN NERSN {up} {up} 
{up} {up} {rght}";: 

106 ifsp (pk) >=Othenprintl$"{up} {up} {up} {up} {rght}"; : 

108 sp$=str$ (sp (pk) ) :fori=2to3:pp$=mid$ (sp$,i,l) 

110 ifpp$=" "orlen (pp$) =Othenprintl$cr$; :gotoll4 

112 forj=0t04:printz$ (val (pp$) ,j)cr$; :next 

114 print"{up} {up} {up} {up} {up} {rght} {rght} {rght} {rght}";: next: 
ifx=1then118 

115 ifpeek (646) =13thenjj=0:gosub155:g0to1l17 

116 ifpeek (646) =2thenjj=1:gosub155 

117 cd=1.5:g0sub150:x=1:print"{rvof}":poke646,15:g90t0100 

118 x=0:return 

119 rem zeitleiste aktualisieren 

120 e=(60-p) /2:print" {home} {down} {down} {down} {down} {down} {down} 
{down} {down} {down} {down} {down} {down} {down} {down} {down} {down} {rght} 
{rght} {rght} {rght} {rght}";: 

121 fory=0toe-2:print"{rght}";:next 

122 fory=0t030-e:print" ";:next:return 

129 rem spielende 

130 z1l=0:t1$="endstand":t2$="der gewinner ist":e2$="spieler": 
gosub50 

132 ifsp(0)>sp(1)thenw=1:g0t0138 

134 ifsp(1)>sp(O)thenw=2:g90t0138 

136 w=0:t2$="das spiel endet" :e2$="unentschieden {down}" 

138 print" {home} {down} {down} {down} {down} {down} {down} {down} {down} 
{rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} 
{rght} {rght}"e2$" {down}":ifw=0then142 

140 print"{rght}{rght}{rght} {rght} {rght} {rght} {rght} {rght} {rght} 
{rght}{rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght}"; :fori=0t04: 
printz$ (w,i)cr$; :next:print 

142 print" taste druecken um nochmal zu spielen":pokel98,0 

144 geta$:ifa$=""then144 


D314 
9A84 
9DB2 


AAE7 


D1BD 


3893 


1BF2 


c378 
8270 
OADB 


F944 


64FF 
223B 
F4DF 
80F6 
8DIC 


5BC3 
2509 


| CBAC 


7841 
287D 
4E2B 


2FDE 
BOOE 
FD37 
DB13 


c938 
B8c8 
456B 
1B83 


39EF 


D873 
C3DF 
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146 
alles 
147 
149 
150 
151 
152 
154 
155 
156 
157 
158 
159 
160 
199 
200 
202 
204 
206 
208 
210 
212 
214 
215 
216 
218 
220 
222 
224 
226 


print"{up} {rvon} 

klar! weiter geht's!{rvof} | 2% 

clr:gotol0 

rem warte timer 

sl=ti 

LERI- s1<ed*60then151 

return 

rem sound effekt abspielen 
forii=sftosf+23:pokeii,0:next 
forii=0to3:pokesf+tii,sf(jj,ii) next 
forii=5to6:pokesf+ii,sf(jj,ii) :next 
pokesf+t4,sf(jj,4)+1 

cd=sf (jj, 7) :gosub150 

pokesf+4,sf(jj,4) :return 

rem spiel: farbe = wort? 

sg (0)=1:poke646,15:poke53280,15:poke53281,0:ri=1 
c$(0)="# schwarz #" 

c$(1)="# weiss #" 

c$(2)="# gelb #" 

c$(3)="# gruen #" 

c$(4)="# blau #" 
en(0)=O:en(1)=1:cn(2)=7:cn(3)=5:cn (4)=6 
t1$="spiel"+str$ (si) :t2$="farbe = wort?":z1=1:gosub48 
rem farbe und wort ermitteln 
poke198,0:p=0:s=ti:z=£nzz (4) :ifz=tcthengoto216 
tc=z 

z=fnzz (4) :ifz=bcethengoto220 

be=z 

poke53281,cn (bc) 

print" {home} {down} {down} {down} {down} {down} {down} {down} {down} 


{down} {down} {rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} 
{rght}{rght} {rght} {rght} {rght} {rght } HH" 


228 


print"{rght}{rght}{rght} {rght}{rght} {rght} {rght} {rght} {rght} 


{rght}{rght} {rght} {rght}{rght} {rght}"c$ (te): :print"{rght}{rght} {rght} 
[BR UL Dec Vera VESUEL DRRISE DES BSR ERREERRRNLE SERIEN 


{rght ) HH" 

229 rem zeitbalken fuellen 

230 print"{down} {down} {down} {rght}{rght}{rght}{rght}{rght} 
{rvon} {rvo£f}" 

232 g0t0234 

234 gosub120 

236 geti$:ifi$=""then252 

238 poke198,0:ifi$=chr$ (32) thenpk=0 :90t0244 

240 ifi$=chr$ (13) thenpk=1:90t0244 

242 goto252 

244 ifbc=tcethenprint:poke646,13:sp (pk)=sp (pk) +1:g90sub100:90t0248 

246 print:sp(pk)=sp (pk) -1:poke646,2:g0sub100:90t0248 

248 ri=ri+tl:ifri<=rathen216:rem naechste runde 

250 return 

252 p=ti-s:ifp<60then234 

254 goto216 

299 rem spiel: druecke wenns weiss wird 

300 sg(1)=1:z1=1:ri=1 

302 t1$="spiel"+str$ (si) :t2$="druecke wenns weiss wird":gosub48 

304 poke198,0:t=0:z=fnzz (6) :s=ti+z*60:poke53281,0 

306 print" {home} {down} {down} {down} {down} {down}{down} {down} {down} 


{down} {down} {down} {down} {down} {down} {down} {down} {rght}{rght}{rght} 
{rght} {rght} {rvon} IEVOER"S 
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5C94 


6AEO 
099D 
AOF7 
564D 
110F 
210C 
664F 
F2EA 
4A26 


| 8030 


AC80 
6D14 
Dill 
GE53 
E480 
F7D5 
F4A5 
7730 
A9DC 
BBD2 
cc86 
A6D1 
0CE9I 
7D97 
23E3 
0204 
70cC0 
4ECO 


B422 


A175 
4158 


F240 
8950 
7064 
2756 
E26C 
67A8 
8070 
4AFF 
F68D 
64DF 
2A8D 
9CBl 


|97D2 


B85E 
9B6D 
60A2 
BDB3 


308 geti$:ifi$=""then322 } 6B8C 
310 poke198,0:ifi$=chr$ (32) thenpk=0 :g0t0314 3493 
312 ifi$=chr$ (13) thenpk=1:g0t0314 | 3C2F 
314 ift=1thensp (pk) =sp (pk) +1:poke646,13:g0osub100:90t0318 1 985A 
316 sp(pk)=sp (pk) -1:poke646,2:gosub100 ,5196 
318 ri=sri+tl:ifri<=rathen304 5CBA 
320 return E2CE 
322 ift=0then330 ı 8224 
324 p=ti-s:ifp<60then328 ı 1E87 
326 goto304 41B0 
328 gosub120:90t0308 ,A42B 
330 p=s-ti:ifp>Othen308 | 33F0 
332 poke53281,1:t=1:s=ti:goto308 EB8öF 
399 rem spiel: countdown abgelaufen? 364B 
400 sg(2)=1:z1=0:ri=1:cd=2 8DF7 
402 t1$="spiel"+str$ (si) :t2$="countdown abgelaufen?":gosub48 0OEF3 
404 pokel198,0:z=£fnzz (5)+3:poke53281,0:s=ti 36EC 
406 geti$:ifi$=""then422 \ 8356 
408 poke198,0:ifi$=chr$ (32) thenpk=0:g0t0414 CA19 
410 ifi$=chr$ (13) thenpk=1:g0t0414 c267 
| 412 goto422 0282 
| 414 gosub438:ift-1<Othensp (pk) =sp (pk)+1:poke646,13:g0osub1l00:g0t0418 | 7354 
| 416 sp(pk)=sp(pk) -1:poke646,2:gosub100 3A27 
418 ri=sri+l:ifri<=rathengosub444:90t0404 4279 
420 return 246E 
422 t=(ti-s) /60:t=z-t:t2=val (mid$ (str$(t),2,1)) 9C6A 
424 print"{home} {down} {down} {down} {down} {down} {down} {down} {down} 765C 
{down} {down} {rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} 
{rght}{rght}{rght} {rght} {rght} {rght} {rght} {rght} {rght} {wht}"; 
A2B I TERZ<SZI2ZENENDLIDENFFFNELS UN ANORS UN ARNERSIN FE ERSIL IS era. 932C 
goto430 | 
428 fory=0to4:printz$(t2,y)cr$; :next:g0ot0406 | 79FA 
430 ift>-1then406 | FD90 
432 Du En che yrnays hi dann HApEmT take HR D131 
{down} {down} {down} {down}{down} zu spaet!!":poke53281,2 
434 gosub1l50:gosub444:90t0404 F876 
436 return | 32EE 
438 ift2>Othengosub448:return - 4B1A 
440 gosub444:print"{home} {down} {down} {down} {down} {down} {down} {down} ' 5CCB 
{down} {down} {down} {down} {down} {grn}"mid$ (str$ (t-1), 
2,4) 
442 print" {grn}sekunden":return , 7FAF 
444 print" {home} {down} {down} {down} {down} {down} {down} {down} {down} , 9074 
{down}" 
| 446 fori=0to6:print" "next: ECO05 
| return | 
448 gosub444:print" {home} {down} {down} {down} {down} {down} {down} {down} | 62F4 
{down} {down} {down} {down} {down} {red}"mid$ (str$ (t-1),2 
5) " sek" 
450 print" {red}zu frueh!":gosub150:gosub444:return | 026D 
499 rem spiel: drei gleiche bilder 1A3cC 
500 sg(3)=1:z1=0:poke53281,0: 057E 
502 t1$="spiel"+str$ (si) :t2$="drei gleiche bilder?":gosub48:ri=1 D5CC 
504 b$(0,0)="{orng} {rvon} {CBM-K} {CBM-D} {CBM-F} {rvof}{CBM-K}" DEFA 
505 b$(0,1)=" {orng}{rvon} {rvof} {rvon} {rvof} " C67D 
506 b$(0,2)="{orng}{rvon}{CBM-POUND} {CBM-E} {CBM-POUND}" DBB2 
507 b$(0,3)=" {rvon} ILVSEN ; 42D3 
508 b$(0,4)="{rvon}{CBM-POUND} {rvof}{CBM-Y}{rvon} {CBM-POUND}" A5EIl 
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509 


b$(1,0)="{lred} {rvon} {CBM-*} {rvof} {CBM-@} {lred} {CBM-P} {rvon} 


{SHIFT-POUND}" 


510 
5! 
512 
513 
514 
2515 
516 
Ba] 
518 
5119 


b5 (1,1)="{rvon} {CBM-P}RFR{CBM-P}" 

b$(1,2)="{tvon}.gQ" 

b$ (1,3) ="{CBM-*} {rvon}=Q={rvof} {SHIFT-POUND}" 

b$(1,4)=" {lred} {CBM-*} {CBM-I}{SHIFT-POUND} " 

b$(2,0)=" {grn} {CBM-D} {rvon} {rvof}{CBM-F} " 

b$(2,1)=" {grn} {rvon} {CBM-V}W{CBM-C} {rvo£f} " 

b$(2,2)=" {grn}{rvon} W {rvof} " 

b$(2,3)=" {grn}{rvon} W {rvof} " 

b$ (2,4)="{yel}{CBM-C} {rvon} {CBM-O} {CBM-O} {CBM-O} {rvof} {CBM-V}" 
b$ (3,0)="{wht}{rvon} {CBM-K} {CBM-I}{grn} {CBM-Y} {wht} {CBM-T} 


{rvof} {CBM-K}" 


520 
521 
522 
523 
524 
B25 
526 
527 
528 
534 
939 
537 
538 
ER) 
541 


{rght}{rght}{rght}{rght} {rght}{rght} {rght} {rght} {rght} {rght} {rght}"; : 


b$(3,1)="{grn}{rvon} {CBM-Y} {CBM-Y} " 

b$ (3,2)="{rvon}{CBM-U} {CBM-U} {CBM-U} {CBM-U} {CBM-U}" 

b$ (3,3)="{CBM-C}{rvon} {CBM-P} {rvo£f}{CBM-V}" 
b$(3,4)="{CBM-B}{rvon}{CBM-C}{rvof} {rvon}{CBM-V} {CBM-B}" 
b$(4,0)="{yel}{CBM-D}{rvon} "{rvo£f}{CBM-F}" 
b$(4,1)="{rvon} {wht}{CBM-D} {yel} {wht}{CBM-F}{yel} " 


b$(4,2)="{rvon}{yel}. {red}"+chr$ (34)+chr$(34)+"{left}{yel} " 


b$ (4,3)="{rvon}{CBM-P} {red} F{CBM-E}F{yel}{CBM-P}" 

b$(4,4)=" {rvon}{CBM-K} {rvof}{CBM-K} " 

rem bilder darstellen { 

poke198,0:fori=0t05:sc (i)=0:sm(i)=0:next 
1=0:gosub88:b=0:gosub539:b=1:gosub539:s=ti:9g0t0547 

rem bilder ermitteln 

z=f£fnzz (5) 

sm (b)=z:print" {home} {down} {down} {down} {down} {down} {down} {rght} 


k=b:ifk>2thenk=k-3:print" {down} {down} {down} {down} {down} {down}"; 


543 ifk>Othenfory=0tok-1:print"{rght}{rght}{rght}{rght}{rght}{rght} 


";znext 


545 


fory=0to4:printb$ (z-1,y)"{rvof}{down}{left}{left} {left} {left} 


{left}"; :next:return 


547 
549 
551 
553 
555 
557 
559 
561 
563 
565 
567 
569 
S31l 
599 
600 
602 
603 
604 
605 
606 
607 
608 
609 
610 


geti$:ifi$=""then553 
poke198,0:ifi$=chr$ (32) thenpk=0:g0t0561 
ifi$=chr$ (13) thenpk=1:g0t0561 

ifti-s<60then547 

s=ti:ifb<5thenifl=0thenb=b+1:9g0t0559 

b=f£nzz (6)-1:1=1 

gosub539:g0t0547 

fori=0to5:ifsm(i)>Othensc (sm(i)-1)=sc(sm(i)-1)+1 

next h 

fori=0to5:ifsc (i) >=3thensp (pk) =sp (pk) +1:poke646,13:90t0569 
next:sp (pk)=sp (pk) -1:poke646,2 
gosubl100:ri=ri+l:ifri<=rathen535 

return 

rem spiel: fuenf verschiedene flaggen 

sg (4)=1:z1=0:poke53281,0:ri=1 
t1$="spiel"+str$ (si) :t2$="fuenf verschiedene flaggen":gosub48 
rem flagge oesterreich 


s$(0,0)="{rvon}{red} {rvof}{gry3}" 
s$(0,1)="{rvon}{wht} {rvof}{gry3}" 
s$(0,2)="{rvon}{red} {rvof}{gry3}" 


rem flagge schweiz 

s$(1,0)="{rvon}{red} {wht} {red} {rvof}{gry3}" 
s$(1,1)="{rvon}{red} {wht} {red} {rvof}{gry3}" 
s$(1,2)="{rvon}{red} {wht} {red} {rvof}{gry3}" 
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1EES 


F5AB 
DE6D 
1FBA 
67D7 
2223 
BCA7 
3A5D 
5AA4 
4D40 
5F89 


2F25 


63CB 
84F4 . 
CB60 
ES15 
471E 
442A 
732A 
6CC9 
E401 
6065 
7072 
3139 


| D356 
| DB33 


cıBl 
4677, 


OC2E 
7377 
4AE4 
E7FS 
3F9B 
DC35 
F8D6 
2FOF 


ı BB75 


AC2B 
5815 
A3CE 
8BB5 
9297 
158E 
FDFF 
85A6 
5756 
1DAl 
43F3 


1@895 


c494 
B’CF 
3269 


Di 
| 612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
| 624 
| 625 
626 
630 
632 
634 
636 
638 
640 
642 
644 
646 
648 
650 


652 


654 


rem flagge deutschland 

s$(2,0)="{rvon}{blk} {rvof}{gry3}" 
s$(2,1)="{rvon}{red} {rvof}{gry3}" 
s$(2,2)="{rvon}{yel} {rvof}{gry3}" 


rem flagge belgien 

s$(3,0)="{rvon}{gry2} {blk} {yel} {red} {gry2} {rvof}{gry3}" 
s$(3,1)="{rvon}{gry2} {blIk} {yel} {red} {gry2} {rvof}{gry3}" 
s$(3,2)="{rvon}{gry2} {blk} {yel} {red} {gry2} {rvof}{gry3}" 


rem flagge frankreich 

s$(4,0)="{rvon}{red} {rvof}{gry3}" 
s$(4,1)="{rvon}{wht} {rvof}{gry3}" 
s$(4,2)="{rvon}{blu} {rvof}{gry3}" 


rem flagge norwegen 

s$(5,0)="{rvon}{red} {wht} {red} {rvof}{gry3}" 
s$(5,1)="{rvon}{wht} {rvof}{gry3}" 
s$(5,2)="{rvon}{red} {wht} {red} {rvof}{gry3}" 
pokel198,0:fori=0to5:sc(i)=0:sm(i)=0:next 
1=0:gosub76:b=0:gosub648:b=1:gosub648:s=ti 
geti$:ifi$=""then640 
poke198,0:ifi$=chr$ (32) thenpk=0 :90t0656 
ifi$=chr$ (13) thenpk=1:90t0656 

ifti-s<60then634 ) 
s=ti:ifb<5thenifl=0thenb=b+1:g0t0646 
b=f£nzz (6) -1:1=1 

gosub648:90t0634 

z=fnzz (6) -1 

sm (b)=z:print" {home} {down} {down} {down} {down} {down} {down} {down} 


{down} {down} {rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} 
{rght} {rght,} {rght}"; :k=b:ifk>2thenk=k-3:print" {down} {down} {down} 
{down}"; fi 


ifk>0Othenfory=0tok-1:print"{rght} {rght} {rght} {rght} {rght} {rght} 


";:next 


fory=0to2:prints$ (z,y) "{down} {left}{left}{left}{left}{left}";: 


next:return 


656 j=0:fori=0to5:sc(sm(i))=sc(sm(i))+1:next 

658 fori=0toS:ifsc (i)>Othenj=j+1 

660 next 

662 ifj>=5thensp (pk) =sp (pk) +1:poke646,13:90t0666 

664 sp(pk)=sp (pk) -1:poke646,2 

666 gosubl00:ri=ri+l:ifri<=rathen630 

668 return 

700 sg(6)=1:poke53281,0:ri=1:cd=0.5:k=0:j=0 

702 t1$="spiel"+str$ (si) :t2$="links = rechts?":gosub48 

703 rem diskette 

704 d$(0,0)="{gry3}{CBM-D}FF{CBM-I} {CBM-F}" 

706 d$(0,1)="{gry3} {rvon}{CBM-K}{rvof}{CBM-I}{CBM-I}{rvon} {rvof} 
{CBM-V}" 

708 d$(0,2)="{gry3}{rvon}{CBM-K} Q {rvof}{CBM-K}" 

710 d$(0,3)="{gry3}{rvon}{CBM-K} B {rvof}{CBM-K}" 

712 d$(0,4)="{gry3} {CBM-C} {rvon} {CBM-I} {CBM-I} {CBM-I} {rvof} {CBM-V}" 

713 rem blaues auto 

714 d$(1,0)=" v 

716 d$(1,1)="{blu} {CBM-I} {CBM-I} {CBM-I}{CBM-I}{yel} " 

718 d$(1,2)="{blu}{rvon} {cyn}{CBM-N} Ufblu}{rvof} " 

720 d$(1,3)="{blu}{rvon} =" 

722 d$(1,4)="{blu}{CBM-U} {gry2}WCW{blu} {CBM-U}" 

723 rem rotes auto n 

724 d$(2,0)=" I 


7F2E 
9450 
9E0O 
AIlBF 
0033 
5ADF 
C5F3 
83B5 
9D25 
8758 
CDAF 
B2EE 
D027 
FD2D 
A6A3 
0BDO 
5C66 
548A 
D4FA 
BF88 
716C 
8799 
CBEF 
7432 
D6C7 
78C7 
8151 


ı 0634 
49E4 


| 4076 
F4B2 
246D 
27EB 
C5cc 
42E5 
14AD 
6675 
5204 
5EDE 
8C13 
823E 


BB10 
F99A 
B1A4 
694C 
59B2 
8DDC 
ED4C 
7EAF 
F47E 
23E6 
FDFF 
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726 d$(2,1)="{red} {CBM-D} {CBM-I} {CBM-I} {CBM-I} {CBM-F}" 83F6 


728 d$(2,2)="{red}{rvon}{CBM-K}{cyn} {SHIFT--} {CBM-*}" DA07 
730 d$ (2,3)="{rvon} {red} {CBM-P}O{CBM-Y} {CBM-Y} {CBM-Y}" 212D 
732 d$(2,4)="{red}{rvon}{CBM-I}{rvof}{gry2}w{gry3}DD{gry2}W" | 92AB 
733 rem lok c98B 
734 d$(3,0)="{gry2}{CBM-I}{CBM-I}{CBM-F} {gry3} {CBM--}" \ 77AC 
736 d$(3,1)="{gry2} {CBM-H} {CBM-H}L{gry3} {CBM-F} {gry2} {CBM-K}" | 3875 
738 d$(3,2)="{gry2}L{rvon} {CBM-C}" CCA3 
7140 d$ (3,3) ="{gry2} {rvon} {SHIFT-*} {SHIFT-*} {SHIFT-*}{SHIFT-*} | 972E 
{CBM-D}" 
742 d$(3,4)="{red}WW{gry2} {SHIFT-*}C{red}W" 3EEA 
743 rem balloon \ F2CD 
744 d$(4,0)="{cyn}{CBM-D} {rvon} {rvo£f} {CBM-F}" DB74 
746 d$(4,1)="{cyn}{rvon}{CBM-H} c={CBM-N}" 3061 
748 d$(4,2)="{cyn}{rvof}{CBM-C} {rvon} {rvo£f} {CBM-V}" 74EA 


750 d$(4,3)="{blk}{rvon} {cyn}{rvof}{CBM-B} {SHIFT--}{rvon}{CBM-B} EFI1B 
{bIkK} " 

752 d$(4,4)="{cyn} {wht}{rvo£f} {cyn}{rvon} {rvof} {blk}{rvon} " 685D 

754 print"{home} {down} {down} {down} {down} {down} {down} {down} {down} 387F 
{down}"; :k=0:r1$="O{CBM-Y} {CBM-Y} {CBM-Y} {CBM-Y} {CBM-Y} {CBM-Y} {CBM-Y} 
{CBM-Y} {CBM-Y} {CBM-Y} {CBM-Y}P" 


755 r2$="{CBM-G} {CBM-N}": r3$="L{CBM- P}{CBM-P} {CBM-P} 45EF 
{CBM-P} {CBM-P} {CBM-P} {CBM-P} {CBM-P} {CBM-P} {CBM-P} {CBM-P} {SHIFT-@}" 

136 Prine" naar eh REITS 4593 

758 fori=0tol:print" Ur2SN "r2$:next 827B 

760 print" "r2$" == ."r2$ ı B5B3 

762 fori=0tol:print" rag "r2$:next ACB2 

763 print" NEZSN "238 2436 

764 print"{home} {down} {down} {down} {down} {down} {down} {down} {down} 66D1 
{down} {down} {rght} {rght} {rght} {rght} {rght} {rght}"; | 

765 rem bilder zeichnen  7EF& 

766 zi=£nzz (5) -1:z2=£nzz (5) -1:ifk=0thenml=z1:m2=z2 AF4C 

768 fory=0to4:printd$ (zl,y)"{rvof} "d$(z2,y)"{rvof}{down}{left} FAO3 
{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";:next | 

770 ifk=1thens=ti:g0t0776 46F9 


772 print"{up}{up}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght} |FBE2 
{rght} {rght} {rght} {rght} {rght} {rght} {rght}{rght} {rght} {rght} {rght}"; 


774 k=1:90t0766 \FB40 
775 rem eingabe behandeln 4E5D 
776 poke198,0 2F9A 
778 geti$:ifi$=""then784 E91 
780 poke198,0:ifi$=chr$ (32) thenpk=0:90t0788 1971 
782 ifi$=chr$ (13) thenpk=1:90t0788 9110 
784 ifti-s<45then?778 \ A549 
786 print"{home} {down} {down} {down} {down} {down} {down} {down} {down} 41D8 

{down} {down} {rght}{rght} {rght} {rght} {rght} {rght} {rght} {rght} {rght} 

{rght} {rght} {rght} {rght} {rght} {rght} (rght} (rght}(eght)(rght)teght) 

{rght} {rght} {rght}"; :90t0766 
788 ifz1=mlthenifz2=m2thensp (pk) =sp (pk) +1:poke646,13:90t0792 8095 
790 sp (pk)=sp (pk) -1:poke646,2 E545 
792 gosub100:ri=ri+l:ifri<=rathengoto754 AlD9 
794 return A7DC 


30 Weihnachten auf dem Commodore 


Hals- und Beinbruch für 6 Personen 


Weihnachtsspringen 


Wer sich für Wintersport interessiert, dem ist 
womöglich das Weihnachtsspringen ein Begriff, 
welches auf der Olympiaschanze im Schweizer 
Skiort St. Moritz stattfand. Dies können wir nun 
endlich am heimischen Computer nachspielen, 
ohne dafür einen Fuß vor die Tür setzen zu 
müssen — und das ganze sogar mit bis zu 6 
Spielern. Ein Spaß für die ganze Familie also! 


Das ganze läßt sich sogar mit nur einer einzigen 
Taste steuern — doch ein echter Sportler weiß, 
daß gute Koordination das A und O ist. 


System: C64 
Autor: Roman Werner 


Deshalb hier das kleine Einmaleins des Ski- 
springens: 


1 
2 


. Der Start erfolgt mit irgendeiner Taste 
. Bei Anfahrt die Taste mehrmals schnell 


hintereinander antippen, um Geschwindigkeit 
und Kraft für den Absprungwinkel zu sammeln 


. Beim Schanzenende Taste gedrückt halten, 


um maximalen Absprungwinkel zu erhalten 


. Flug genießen (keine Aktion notwendig) 
. Kurz vor der Landung Taste antippen — 


ansonsten gibt es eine Bruchlandung! 


| 10 i=0:j=0:rd=1:s=54272:poke53280, 6:poke53281,6:poke650, 64 ı F8D8 
| 20 fori=0t07:readc(i) :next:data46,58,87,42,81,170,209,32 \ı CCES 
| 30 s$="{rvon}":fori=1t039:s$=s$+" ":next:1$=" {down} {left}{left} |B5D2 
| {left}" 

40 a$="{rght} o{down}{left}{left}{left} PO{down}{left}{left} SF1F 
{left} {CBM-P}L{CBM-P} {up} {up} {wht}" 

50 b$=" {rght}{down}{left}{left}{left}{left} Mo{down}{left} EA65 
{left}{left}M{rvon}{CBM-D}{rvof} {down}{left}{left}M{up} {up} {up} {wht} 

60 c$=" o{down}{left}{left}{left} PN{down}{left}{left} D99E 
{left} N{wht}" 

70 d$="{up}{up}{left}{left}{left}{left}{left}{left} {down} ATFC 
{left}{left}{left}{left}{left} {down} {left}{left}{left}{left} | 
{left} " 

80 e$(0)=" {down}{left}{left}{left}B M {down} {left}{left}{left} 1045 
{left}BoNM{down}{left}{left}{left}{left}N M{up} {up} {up} {wht}" 

90 e$(1)=" {down} {left}{left}{left}CCC {down}{left}{left}{left} 6DD6 
{left}MoN {down}{left}{left}{left}{left}PP. {up} {up} {up} {wht}" 

100 £$=" {down} {left}{left}{left}{left} NM {down}{left}{left} 9FBA 
{left} {left} {left }NMoNM{wht}":h$="{home} {down} {down}" 
110 w1$="MoN{down}{left}{left}{rvon} {down}{left}B" 21AE 
120 w2$=" oN{down} {left}{left}{left}N{rvon} {down} {left}B" 1266 
130 w3$="Mo{down}{left}{rvon} {down} {left}B{rvof}{up}M" : E644 
140 pd$="{wht}{rvon} 2 {up}{left}{left}{left} 1 {down} 3 " DC74 
150 c1$="{wht}{lgrn} {lred} {cyn}{yel}{lblu}" FAD5 
160 rem *** present title screen *** 51DE 
170 print" {wht}{clr}"tab(7)"*** weihnachtsspringen ***{down}" 1939 
180 printtab(10)"2022 by roman werner {down} {down}" 3624 
190 printtab(4)"{lred}control: any key (or fire portl) {down} {down}" | 4FAD 
195 printtab (14)"{lblu}instructions" | 72C8 
200 print"1. press key repeatedly to collect power"; ı.DDD5 
210 print"2. at jump point keep pressing for angle"; ı 058C 


{down} {down} {down} " 


220 print"3. press key again just before landing{wht} {down} {down} | C436 
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280 


fori=1to3:forj=1ltoi:print"{rvon} ";:next 
print"{CBM-*}":next: ee 
fori=1to2:printleft$ (s$,7) ;:forj=1to3 


) printtab (j*11)" {gen} {SHIFT- POUND} {CBM-*} {wht}"; :next 


print:next:print"{up}"tab(7)"...{rght}{rght}{rght} {rght} 
„tESHc HeLohte N Irghertecheh oo. e 
prints$"{rght}"s$:print"{up} {up} {up} {up} {up}{up}{up}{up}{up} 


{up} {up}":poke198,0 


290 


printtab (7)"{cyn}how many players (1-6) {rght} {rght}1{left} 


{left} {left}"; :inputp$:ifp$=""gotol70 


300 
305 


pc=asc (p$) -48:ifpc<lorpc>6g0t0170 
printtab (7)"how many rounds (1-5) {rght}{rght}3{left} {left} 


{left}"; :inputr$:ifr$=""gotol70 


306 
310 
320 
330 
340 
350 
360 
370 
380 


mr=asc (r$) -47:ifmr<2ormr>6g0t0170 
t=0:a=25:k=0:x=0:d=1:e=0:pokes+4,0:p=p+tl:ifp>pcthenp=1 
print" {wht} {clr}"tab (17) "round"rd" {down} {down} {down} {down}" 
pokes,31:pokes+1,31:pokes+24,15:pokes+5,153:pokes+6,153 
rem *** build ski jump arena *** 

p$=mid$ (c1$,p,1) 

fori=5tol5:printleft$ (s$,i)"{CBM-*}":next 
fori=1to5:printleft$ (s$, 21) :next:fori=1to3:prints$:next 
printh$p$a$:print"{down} {down} {down}{rvon} "p"{left}{left} 


{left}p" 


390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 


poke198,0:wait198,1:wait197,64:getk$:pokel98,0 

rem ***. start game *** 

fori=1to3:gosub640:printh$tab (i)p$a$:print:next:pokes+4,129 
printh$; :fori=4tol4:gosub640:printtab (i)p$b$:next 

printtab (i)"{left}{down} {up} {up}{left}" 
fori=15t017:g0sub640:printtab (i)p$a$"{up}":next:pokes+t4,128 
forj=0tok*3 

ifpeek (197)<>64thena=atl:printtab (20)a"{up}{left}." 
next:printtab (20)" {up} ":ifa=25g0to1190 
pokes+6,0:pokes+4,129 

r=a*{pi}/180:9=9.81/2:v=20+k*2:x2=19 
t2=t72:0x=x:x=v*cos (r) *t:y=v*sin (r) *t-5*t2-9*t2:x2=x2+ (x- N 
z=12-y/2:t=t+.1 

ifz<17thenpokel198,0 

ifx>.andoz>=.thenprintd$ 
ifx2>32thenx2=x2-30:ifx<20thengosub670 
ifz>17andz<18.5thenz=17:ifpeek (198) goto700 

ifz>=18g0oto1l120 

ifz>.thenpoke214, z:print:printtab (x2)p$c$int (x) "{left}m"; 
oz=z:ifz>-30oregoto500 
j=100:pokes+5,8:pokes+6,0:fori=0tol8:poke2l4,i:print 
pokes+1,j:j=j-3:pokes+4,33:pokes+t4,32 

printtab (x2) 1$"{wht}JXK":wait53265,128 

next:e=1:goto500 

rem *** power meter *** 
forj=1to5:getk$:ifk$<>""thenk=k+1:pokel023+k, 234 
next:return 

rem *** next screen while flying *** 
print"{clr}":poke214,20:print:fori=1to3:prints$:next 

return 

rem *** ]landing phase *** 
pokes+4,128:pokes+5,153:pokes+6,153:pokes+4,129 
m$=left$ (str$ (x) ,6) :t (p)=t (p) +x 
poke214,17:print:printtab (x2)p$a$" {down} {down}"int (x)"{left}m"; 
x2=x2+d:d=d-.02:ifx2>30thenprint"{left}{left}"p$d$:x2=x2-30 


32 Weihnachten auf dem Commodore 


2A2C 
58D3 
D497 
c015 


59FC 


4A13 


3All 


AB29 


8396 


ı DD9F 


c047 
622C 


ı1BD5 


2A30 
6851 


‚AF47 


898D 
E903 


8DOB 
E8DE 
7E15 
0174 
9DFE 
86B1 
8c2F 


9974 


660B 
2E36 
B204 
449F 
26F1 
CCEA 


ıE829 


0C64 
2758 
7DEA 


‚ AFDO 
,0D3A 


4BFF 
FB60 
CCB9 


\ DC8B 


F300 
95BA 
2BAD 
DO8C 
20FD 
2A8D 
1C4D 
C3E6 
1B02 


ı5F32 
D26A 


740 ifd>Othenpokes+4,128:90t0720 \ 79A8 


750 print"{up}":printtab (x2+4)m$"m{home}" ıAF45 
760 fori=7to0step-1:pokes+24,i:next:pokes+6,255:pokes+t4,129 FCD5 
\ 770 £ori=0tol5step.25:pokes+t24,i:next 475A 
| 780 fori=15to0step-0.1:pokes+t24,i:next:pokes+4,128:pokes+6,0 1,392: 
| 790 rem *** show leader board *** 9AD1 
| 800 fori=ptolstep-l1:ifx>1b (i-1,1)thennext:i=i+1 475B 
1 810 forj=pto (itl)step-1:fork=0tol:1b(j,k)=1b(j-1,k) :next:next 5E74 
820 1b (i,0)=p:1b(i,1)=x:print"{home}"; C3AC 
830 printtab (17) "round"rd"{down}" DAD8 
840 ifp=pcthenrd=rd+1 7BCE 
850 printtab (13)left$(s$,16) c962 
860 printtab(13)"{rvon} leaderboard " 3FD8 
870 printtab(13)left$(s$,16) 1563 
880 fori=1top:m$=mid$ (str$ (1b (i,1)),2,5) :n$=left$ (s$, 7-len (m$)) 1,8892 
| 890 printtab (13) "{rvon}"i"{left}."mid$.(c1$,1b(i,0),1)"."Ib(i, ı D2A4 
| 0O)"{left}{left}{left}p{rght} {wht}"n$m$"m " | 
| 900 next:printtab (13) 1left$ (s$,16) | 6EC7 
| 910 ifrd=mrthenprinttab (13) "{down} final results..." FIE6 
| 920 pokel98,0:ifrd=mr+lthengosub1080 CI 
930 wait198,1:ifp<pcgoto310 E415 
940 ifrd=mrthenprint"{up}"tab(13)right$ (s$,16) 2199 
950 ifrd=mr+lthenrun " 13E8 
960 £fori=1topc:1b(i,0)=0:1b (i,1)=0O:next:ifrd<mrgoto310 D7AB 
970 rem *** show final results *** . 885B 
980 fori=1topc:forj=1topc \ 15C6 
990 ift(j)>=1b(i,1)thenlb (i,1)=t(j) :1b(i,0)=j ıB210 
1000 next:t (1b (i,0))=-1:next 5974 
1004 poke214,19:print:printtab (x2+6) d$" 2 ‚4132 
1010 poke214,19:print:printtab (28) pd$:onpcgotol040,1030 \ 0A5A 
1020 poke214,16:print:printtab (34)Jmid$ (c1$,1b(3,0),1)w3$ ı D3E1 
1030 poke214,16:print:printtab (28)mid$(c1$,1b(2,0),1)w2$ F3D5 
1040 poke214,15:print:printtab (31)mid$ (c1$,1b(1,0),1)w1$ \ 7F78 
1050 print"{home} {wht}"tab (8) "congratulations player"1b(1,0)"{left} | D799 
!{down}" } 
1060 goto840 62FD 
1070 rem *** celebration *** 4024 
1080 pokes+4,0:pokes+24,15:pokes+1,50:pokes+5,173:pokes+4,129 DAAE 
1085 ifpeek (198) thenreturn ı 8404 
1090 o=rnd (0) *880:ifpeek (1024+0) <>32g0t01085 | DF38 
1100 forj=0t07:pokel024+40,c(j) :wait53265,128:next:g0t01085 ‚E250 
1110 rem *** landing failed *** \ 455A 
1120 pokes+5,0:pokes+6,0:poke214,17:print \356D 
1130 printtab (x2)" {down}{left} {down}{left} {up}{up}{up}"p$e$(b); 9320 
1140 x2=x2+d:d=d-.05:b=1-b:pokes+4,129:pokes+4,0 | 255E 
1150 ifx2>32thenprint"{rght} {rght} {down} {down} {down}"d$:x2=x2-30 6All 
1160 ifd>0goto1120 | B2E9I 
1170 print"{left}{left} {left} {down}"p$f$:x=0:90t0800 FOc1 
1180 rem *** failed attempt *** 9887 
1190 printtab (i)p$a$"{left}{left}{left}"1$1$" {up} {up}" 12212 
1200 £ori=1to4:printtab (21)p$e$ (0) :£forj=1to50:next:next 828B 
1210 pokes+1,5:pokes+5,8:pokes+6,0:pokes+4,129 | 014F 
1220 printtab (20) p$f$:x2=20:90t0800 0107 
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Im wahrsten Sinne des Wortes kein Zuckerschlecken 


Verzieren statt Verzehren 


Zu diesem Spiel hat uns der Autor die folgenden 
Zeilen geschrieben: 


„Nur eine wunderschöne Zuckerstange am C64 
zu Weihnachten reicht nicht. Auf keinen Falll Es 
müssen zwei sein - aber bitte, bitte zwei 
identische. So wünschen es sich die Kinder: 
Jeder seine eigene und genau gleich, damit 
wirklich jeder glücklich und zufrieden ist: "Deine 
und meine". ! 


Noch warten alle geduldig auf die süße Leckerei. 
Aber das kann sich schnell ändern und daher 
heißt es ab nun lieber keine Zeit zu verlieren. Je 
flotter die Aufgabe erledigt ist, umso länger und 
zufriedener kann die Zeit nach dem Erfolg 
genossen werden und sich wohlverdient 
ausgeruht werden. Aber andererseits: Vielleicht 
klappt es beim nächsten Versuch doch noch 
etwas schneller und trotzdem auch mit weniger 
Aufwand? So nach dem Motto "Da geht noch 
was". Immerhin schadet es nicht noch mehr 
Zuckerstangen auf Vorrat zu haben. Also lieber 
Helfer, sei bitte so lieb und erstelle noch eine 
Kopie der Zuckerstange und wenn du magst, 
dann sehr gerne noch weitere. 


Die Kopien sollen der so herrlich verzierten 
Vorlage genau entsprechen. Das ist wirklich sehr 
wichtig; du weißt - die Kinder wünschen es sich 
genau so... Die erforderlichen Verzierungs- 
zutaten sind erfreulicherweise alle da und 
werden auf dem mit schöner weihnachtlicher 
grüner Decke geschmückten Tisch bereitgestellt. 
Hach, grün und rot sind einfach DIE Weihn- 
achtsfarben. Und rot-weiße Zuckerstangen pas- 
sen wirklich perfekt dazu. Alle Verzierungen sind 
sogar stets aufs Neue an derselben Stelle zu 


10 rem verzieren statt verzehren 
20 r£f=53280:hf=53281 


30 pokerf,10:pokehf,13:rem farben 
40 printchr$ (14) :rem kleinbuchstaben 


50 printchr$ (8) :rem shift c= aus 
60 bs=1024: fs=55296 


70 ui=49152:gosub2420:rem ms-routinen 
80 un=49244:rem uhranzeige 00:00:00 
90 uf=49265:rem uhranzeige fortsetzen 
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System: C64 
Autor: hexfile 


finden, damit du deine Bewegungsabläufe bei 
jedem neuen Versuch besser abstimmen kannst 
und Übung den Meister macht. Und natürlich 
auch um den anderen zeigen zu können, wer 
hier der einzig wahre Zuckerstangen-Meister ist. 
Es soll ja niemand behaupten können, dass du 
nur durch Zufall so gut gewesen seiest. 


Du wirst die Verzierungen sicher wiedererkennen 
und dich hoffentlich über sie freuen. ‚Viele von 
uns haben sie schon oft bewundert und auch 
bestaunt, was denn alles Herrliches und Tolles 
aus ihnen - und mit ihnen - gemacht wurde und 
noch werden kann. Sogar auf Zuckerstangen 
sehen sie fantastisch aus. Commodore hat 
einfach die richtigen Zeichen der Zeit erkannt - 
wir nutzen sie ja heute noch :-) 


Die Verzierungen müssen nur noch an die 
richtige Stelle gesetzt werden. Zum Glück 
passen beide Zuckerstangen auf den Tisch - 
sowohl die Vorlage als auch die Arbeitskopie. 
Beide hast du dadurch bestens im Blick. Die 
Zuckerstangen werden wunderbar sein, wenn sie 
fertig sind. Daran gibt es keinen Zweifel! Und 
denke bitte daran - hier geht es ums Verzieren 
statt ums Verzehren. Also versuche nicht zu sehr 
an den tollen Geschmack zu denken und lass 
dich nicht ablenken. Falls die Kinder gerade 
beim Spielen sind oder du anderweitig eh gerade 
deine Ruhe hast: Dann nimm dir gerne so viel 
Zeit wie du möchtest und genieße die 
Weihnachten auf dem Commodore in vollen 
Zügen. 


Eine wunderschöne und sehr frohe Weihnachts- 
zeit!“ 


6E79 
DC4B 
8662 
6819 
326A 
2526 
| 1DFF 
A81A 
4B29 


= 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


270 


280 
290 
300 
320 
330 
340 
350 
358 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 


uh=49278:rem uhranzeige halt 
pr=49289:rem syspr,spalte,zeile,$ 
w=1:v=4:r=10:rem farbwerte 
av=13:rem anzahl verzierzeichen 
rp=0:rem richtige positionierungen 
sysui:sysuh:rem zeitmessung init 
t$=chr$ (146) :v$=chr$ (221) 
w$=chr$ (5) +chr$ (18) +chr$ (32) +t$ 
r$=chr$ (150) +chr$ (18) +chr$ (160) +t$ 
w2$=w$+w$:r2$=r$+r$:e1$=r$+w2$ 
e2$=r2$+w$:e3$=w$+r2$:e4$=w2$+r$ 
s1$=chr$ (32) :s2$=s1$+s1$ 
s3$=s1$+s2$:s4$=s2$+s2$ 
s5$=s2$+533$:22$=s5$+s5$+s5$+s1$ 
b$=chr$ (31) :9$=chr$ (152) 

dimo$ (22) 
fori=0t013:0$ (2)=0$ (2) +chr$ (192) 
next:0$(19)=0$ (2) :0$ (22)=0$ (2) 
0$ (2)=chr$ (240) +0$ (2) +chr$ (238) 
0$(3)=g$+v$+"Lieber Helfer, "+v$ 
085 (4)=v$+"verziere bitte"+v$ 
t$=v$+"die"+s1$+b$+"Kopie"+g$ 

0$ (5) =t$+s1$+"ent-"+v$ 

0$ (6)=v$+"sprechend der"+s1$+v$ 
t$=v$+b$+"Vorlage"+g$+"."+s1$ 

0$ (7)=t$+"Eile!"+v$ 

0$ (8) =v$+s5$+s5$+s4$+v$ 
t$=v$+b$+"Richtungstas-" 

0$ (9)=t$+g$+s1$+v$ 
t$=v$+b$+"ten"+g$ 

0$ (10)=t$+": Cursor"+s3$+v$ 

0$ (11)=v$+"bewegen."+s5$+s1$+v$ 
08 (12)=0$ (8) 
t$=v$+b$+"Leertaste"+g$+":" 

0$ (13) =t$+s1$+"Ein"+v$ 

0$ (14) =v$+"Verzierungs-"+s2$+v$ 
0$(15)=v$+"zeichen an"+s4$+v$ 

0$ (16) =v$+"Cursorposition"+v$ 
0$(17)=v$+"aufnehmen bzw."+v$ 

0$ (18) =v$+"ablegen."+s5$+s1$+v$ 
0$ (19) =chr$ (235) +0$ (19) +chr$ (243) 
t$=g$+v$+b$+"Aktionen: 0" 


0$ (20)=t$+s3$+g$+v$ 


08 (21)=g$+v$+b$+"Zeit: 00:00:00" 
0$ (21)=0$ (21) +g$+v$ 
0$ (22) =chr$ (237) +0$ (22) +chr$ (253) 


printchr$ (147):rem clr screen 


rem anleitung und infos ausgeben 
syspr,3,0,b$"Vorlage"g$ 
syspr,32,0,b$"Kopie"g$ 
fori=2t022:syspr,12,i1,0$(i) :next 


rem zwei zuckerstangen 
fori=0to28step28 
syspr,2+i1,2,s2$w$r2$w$ 
syspr,2+i1,3,s1$r2$r2$r$w$ 


909B 
|o12cC 
2EB8 
AEF9 
| CF2D 
BCB5 
7A05 
| 344A 
\ 25E4 
ı 73CC 
D36E 
4Dc4 
785F 
| BIAE 
743B 
131F 
‚19DD 
1E41 
F460 
 912F 
EOF9 
5AES 
5577 
3173 
3710 
\ 6B7E 
EOC6 
BEBE 
8939 
0E70 
CCE7 
093 
D824 
3915 
FBC5 
E121 
078B 
CF3F 
9951 
, 0BD3 
4803 
0029 
CBDO 
9583 
5E24 
F2F8 
‚AlC5 
788A 
C5E5 
33D8 
A241 
| 2BOC 
| EBE6 
FCB5 
F917 
7223 
E6C5 
| 1FSE 
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680 
690 
700 
710 
720 
730 


syspr,2+i,4,e4$w$w$e2$ 
syspr,2+1,5,e1$s2$e3$ 
syspr,2+i,6,e2$s2$e4$ 
syspr,2+i1,7,e3$s2$el$ 
syspr,2+i,8,e4$s2$e2$ 
syspr, 7+i1,9,e3$:syspr, 7+i1,10,e4$ 


740 syspr, 7+i,11,e1$ 


760 syspr, 7+i,15,e1$ 
770' sysßr,7+1,17,e35 
780 syspr, 7+i,19,e1$ 
790 syspr, 7+1,21,e3$ 


ısyspr, 7+1,12,e2$ 
760.\syspr,71+1,13,e38; 


syspr, 7+i,14,e4$ 


ısyspr, 7+i,16,e2$ 
:syspr, 7+i,18,e4$ 
ısyspr, 7+i1,20,e2$ 
ısyspr, 7+1,22,e4$ 


36 


800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 


syspr, 7+i1,23,e1$ 
next 


t$=b$+chr$ (18) +"Taste fuer Start" 
t$=t$+chr$ (146) :syspr,12,23,t$ 
gett$:ift$=""then850 
Syspr,12,23,225 


rem verzierungszeichen platzieren 
rem vorlage verzieren 
i=7+40*2:j=6+40*4:k=8+40%*4 
pokefs+ti,w:pokebs+ti,158 
pokefs+j,v:pokebs+j,163 
pokefs+k,r:pokebs+tk, 127 
i=9+40*5:j=3+40*6:k=2+40*8 
pokefs+ti,r:pokebs+ti, 95 
pokefs+tj,r:pokebs+7j,170 
pokefs+tk,w:pokebs+tk, 127 
i=8+40*8:5j=8+40*11:k=8+40*14 
pokefsti,r:pokebs+ti,186 
pokefs+tj,w:pokebs+tj,128 
pokefs+tk,w:pokebs+k,161 
i=7+40*16:j=8+40*18:k=9+40*21 
pokefs+ti,r:pokebs+i,223 
pokefs+tj,w:pokebs+j,170 
pokefs+tk,r:pokebs+tk, 163 
i=8+40*23:pokefsti,v:pokebs+ti,42 


rem verzierungen aufs spielfeld 
i=31+40*13:j=28+40*16:k=30+40*10 
pokefs+ti,w:pokebs+ti,158 
pokefs+j,v:pokebs+tj,163 
pokefs+tk, r:pokebs+k,127 
i=29+40*22:j=31+40*19:k=38+40*13 
pokefs+ti,r:pokebs+ti, 95 
pokefs+tj,r:pokebs+j,170 
pokefs+tk,w:pokebs+tk, 127 
i=28+40*6:j=30+40*1:k=39+40*24 
pokefsti,r:pokebsti,186 
pokefs+tj,w:pokebs+tj,128 
pokefs+tk,w:pokebs+tk,161 
i=33+40*23:5=33+40*16:k=38+40*2 
pokefs+ti,r:pokebs+i,223 
pokefs+tj,w:pokebs+j,170 
pokefstk,r:pokebs+k,163 
i=33+40*5:pokefs+i,v:pokebsti,42 


Weihnachten auf dem Commodore 


c410 
C7A3 
6221 
D74A 
BBCA 
200A 


DF4C 


50DD 
69cC 
669B 
5083 
4E71 
D705 
A7DC 
A464 
1243 
A334 
8C72 
ABC9I 
EA34 
2500 
D814 
11EE 
4570 
50E3 
C6BF 
B2ı1E 
A220 
27C0 
8BA5 
9426 
1A70 
8l4c 
3B9D 
955B 
19F2 
BC6C 
3D24 
FB80 
BB73 
28A7 
B9IT7F 
c470 
D70A 
47BF 
72A5 
E29G 
4602 
99BA 
CADD 
086F 
95BA 
2982 
05FA 
1A4E 
685A 
3E98 
2042 


1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 


rem startposition cursor & farbe 
syspr,28,13,b$; 

rem game loop 

rem get mit blinkendem cursor 
poke204,0:poke198,0:wait198,1 
gett$ 
poke205,2:wait207,1,1:poke204,1 
t=asc(t$) :rem welche taste? 
gosub1l450:rem cursor bewegen? 
gosub1740:rem aufnehmen/ablegen? 
ifa=1lthensysun:sysuf:rem begonnen? 
gosub2300:rem aktionen anzeigen 
rem pruefen alle zeichen abgelegt? 
ifav=rpgoto2680:rem fertig? 
gotol320 


rem cursor bewegungen pruefen 
ft=0:rem flag ob richtungstaste 
rem aktuelle curs. posit. erfassen 
gosub2390:sn=sa: zn=za 

rem cursor runter: zeile erhoehen 
ift=17ort=83thenzn=za+tl:ft=1 

rem cursor rechts: spalte erhoehen 
ift=29ort=68thensn=sa+tl:ft=1 

rem cursor hoch: zeile erniedrigen 
ift=145ort=87thenzn=za-1:ft=1 

rem cur. links: spalte erniedrigen 
ift=157ort=65thensn=sa-1:ft=1 

rem keine richtungstaste->zurueck 
ifft=0thenreturn 

rem auf bewegungsgrenzen pruefen 
ifsn<28orsn>39thengosubl660:sn=sa 
ifzn<lorzn>24thengosubl660:zn=za 
rem neue cursor zielposition 
syspr,sn,zn;:rem spalte,zeile neu 
a=atl:return 


rem blinkeffekt, zb bei fehlaktion 
pokerf,2:pokehf,5 

rem ca. 1/8 sek. warten 
pokel162,0:wait162,8 
pokerf,10:pokehf,13 

return j 


rem zeichen aufnehmen/ablegen? 

rem zurueck falls nicht leertaste 
ift<>32thenreturn 

a=atl:rem aktion zaehlen 

rem aktuelle curs. posit. erfassen 
gosub2390:sn=sa:zn=za 
i=sn+40*zn:rem pos bs-/farbpeicher 
rem zeichen unter cursor aufnehmen 
iffp=0thengosub1870:g0t01820 
iffp=-Iithengosub2060:rem ablegen 
return 


57A3 
78CC 
8AAO 
93D2 
0586 
\5E51 
B9I6D 
| DIEA 
99F5 
478D 
| EBA2 
8362 
‚4517 
4E8F 
5AB3 
FA3B 
\ 63A1 
3FB2 
B7IC 
FB2C 
D707 
cı81 
8880 
E3FF 
2F8A 
\E405 
ACB9 
7269 
80A0 
9177 
B546 
\218D 
1FBO 
D6C3 
93C7 
63EE 
09EO 
A270 
E601 
1B6C 
2269 
361E 
| 6CBB 
cc42 
2469 
0F71 
7963 
B973 
9521 
3CA0 
\5D56 
E574 
\ B4B5 
3788 
881F 
DO2E 
, AOA8 
B030 
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1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 


rem zeichen unter cursor pruefen 
rem und ggf. aufnehmen 

rem cp=zeichen unter cursor 
cp=peek (206) 

rem bei "leerem feld" nur blinken 
rem und zurueck 
k=cp=32orcp=160orcp=224 
ifkthengosubl660 :return 

rem wenn bereits an richtiger pos 
rem dann blinken und zurueck 
j=peek (bs+i-28) 


‚ifj=peek (bs+i) thengosub1660: return 


pokebs+ti,32:rem leerzeichen poken 
rem cv=aufgehobenes zeichen 

rem cf=farbe (nur low nibble!) 

rem fp=flag picked, true=saufgehoben 
cev=cp:cf=peek (fsti)andl5:fp=-1 
return 


rem position pruefen und 

rem ggf. zeichen ablegen 

rem cp=zeichen unter cursor 
cp=peek (206) 

rem zurueck falls kein leerzeichen 
k=cp<>32andcep<>160andcp<>224 
ifkthengosubl660:return 

rem stimmt position mit vorlage? 
t1=0:ifpeek (bs+ti-28) =cvthent1=-1 
rem stimmt farbe mit vorlage? 

rem in farbspeich. nür low nibble! 
k=peek (fs+ti-28) and15 
t2=0:ifk=cfthent2=-1 

rem richtiges zeichen an richtiger 
rem pos. auf zuckerstange ablegen 
iftlandt2goto2220 

rem sonst auf spielfeld ablegen? 
ifcp=3290t02240 
gosubl660:return:rem nicht ablegen 
rp=rptl:rem richtig positioniert 
rem zeichen ablegen 
pokebsti,cv:pokefsti,cf:fp=0 

rem zeichen und farbe abgelegt 
return 


rem anzahl tastendruecke anzeigen 
rem aktuelle cursorpositi. sichern 
gosub2390:rem cursorpos. sichern 
rem anzahl .aktionen ausgeben 
syspr,22,20,b$; :printa 

rem cursor auf vorherige position 
syspr,sa,za,: ' 

return 


rem aktuelle cursorpos. sichern 
rem out: sa spalte, za zeile 
sa=peek (211) :za=peek (214) :return 


rem stoppuhr in raster-irg 
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2420 p=0:forad=uitoui+150 | 9CEB 
2430 readb:pokead,b:p=p+tb:nextad 6DBE 
2440 ifp<>1757690t02460 8A60 
2450 return 1896 
2460 print"Fehler in data":end F7E6 
2470 data32,92,192,120,169,127,141,13 2D2E 
2480 data220,45,17,208,141,17,208,169 F18B 
2490 data220,141,18,208,169,37,141,20 453C 
2500 data3,169,192;141,21,3,169,1 EC60 
2510 datal41,26,208,88,96,160,0,162 \ 6FF2 
2520 data2,189,9,220,72,41,240,74 51AcC 
2530 data74,74,74,32,74,192,104,41 79CB 
2540 datal5,32,74,192,202,224,255,208 9776 
2550 data232,32,109,192,14,25,208,76 EAB4 
2560 data49,234,24,105,48,153,91,7 6983 
2570 data200,192,2,208,1,200,192,5 6B86 
2580 data208,1,200,96,120,169,0,141 2AAS 
2590 datall,220,141,10,220,141,9,220 | 7BEC 
2600 datal41,8,220,88,96,173,8,220 7557 
2610 data96,120,169,173,141,109,192 BBE7 
2620 datal69,24,141,74,192,88,96,120 0c17 
2630 datal169,96,141,109,192,141,74,192 6070 
2640 data88,96,32,155,183,134,211,32 102F 
2650 datal55,183,32,140,232,76,19,171 E9ICC 
2660 E8ED 
2670 rem ende OD2F 
2680 sysuh:sysun:rem uhranzeige halt \ 2920 
2690 printchr$(9):rem shift c= an 1B8E 
2700 t$=b$+chr$ (18) +"Bravo!"+chr$ (146) 1A03 
2710.syspr,17,23,t5 O7FC 
2720 t$=chr$(18)+"Return fuer Ende" \ A70E 
2730 t$=t$+chr$ (146) 1575 
2740 syspr,12,24,t$; 3A89 
2750 gett$:ift$=""then2750 1868 
2760 t=asc(t$) F352 
2770 ift=13then2790 9270 
2780 g0ot0o2750 FD75 
2790 syspr,12,24,z2$;:syspr,0,10,;:end | 6E9F 
Ein Baukasten der besonderen Art 
= = = 
Winter Scenery Construction Kit 
System: C64 


Mit dem Winter Scenery Construction Kit (kurz: 
WISCK) kannst du interaktiv eine nächtliche 
Weihnachtsszenerie im Schnee nach deinen 
Wünschen gestalten. Allerdings wird nicht 
verraten, wie genau das funktioniert. 


Folgende Tasten stehen dazu zur Verfügung: 


Autor: Stephan Freudenreich (Lynx) 


67890+-GBNH)J 
<SPACE > <F1> <F3> <F5> <F7> 


Lass dich überraschen und zeige deine 
Kreativität! 
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rem winter scenery construction kit 
rem 2022 von st£f fuer w.a.d.c. #5 


rem. tasten: fl £f3 £5 £f7 space 6 7890 +-gbnhj 


10 poke53280,0:poke53281,0:g0sub200 
11 e$=" ":rem 38 spc 
12 t$(1)="frohes{rght}fest!" 
13 t$(2)="merry{rght}christmas!" 
14 t$(3)="weihnachten {rght}auf{rght}dem{rght}commodore!" 
15 s=1:f=1:e=46:r=40:b=7:c=20:d=2:g=4:h=1:i=1:j=1:k=1 
20 ifb+g+g>38thenb=5 
21 ifc>2lthenc=2 
22 ifg>8theng=1 
30 poke646,s:print"{clr}":gosub110 
- 31 ifi=1thengosub120 
32 ifh=1thengosub130:gosub140 
40 ife>47thene=42 
41 poke843,e:poke881,e 
50 fora=0tof:pokel024+rnd(.)*40,e:next 
51 sys828:fora=0top:next 
52 geta$:ifa$=""then50 
53 ifa$="8"thenr=r-1:g0t080 
54 ifa$="9"thenr=r+1l:g0t080 
55 ifa$="0"thenr=40:g0t080 
56 ifa$="6"thens=s+1:g0t030 
57 ifa$="7"thenfora=0t024:sys828:next:e=e+tl:g0t040 
58 ifa$="h"thenh=-h:goto30 
59 ifa$="b"theni=-i:g90t030 
60 ifa$="g"theng=g+1l:g0t020 
61 ifa$="n"thenb=b+2:g0t020 
62 ifa$="j"thenc=c+2:g0t020 
63 ifa$="+"thenf=(f+1)and7 
64 ifa$="-"thenp= (p+32) and255 
65 ifa$="{f1l}"andh=1thend=d+1:gosub130 
66 ifa$="{f3}"andh=1thenw= (w+1)andl:gosub150 
67 ifa$="{f5}"thenk=-k:gosub140 
68 ifa$="{£f7}"thenj=-j:gosub140 
69 ifa$=" "thengosub100 
70 goto50 
80 ifr<lorr>80thenr=40 
81 poke869, r:goto50 

100 poke646,s:print" {home} {down} {down} {down} {down} {down}"e$ 

101 t=(t+1)and3:poke646,t+2 

102 print" {up}"spc(20-len(t$(t))/2)t$ (t) :return 

110 d$="{rvon} {SHIFT-POUND} JKJKJKJKJKJK {rvof } {SHIFT-POUND} " 

321 £$="{SHIFT-POUND}B{CBM-*} {down} {left} {left}{left}{SHIFT-*} 
{SHIFT-+} {SHIFT-*} {down} {left} {left} {left} {CBM-D}B{CBM-POUND} {rvof}" 

112 g$="{gry1l}M{down} {left} {left} {grn}UIl{gryl}M{down}{left}{left} 
{left} {left} {CBM-@} {grn}J{red}&{gryl}{CBM-@}M{down}{left}{rvof} 
{CBM-Y} {up} {up} {up} {up}" 

113 t$="{rvon}{brn}{CBM-G} {down} {left} {left}{CBM-G}.{down}{left} 
{left} {CBM-G} {down} {left}{left}{CBM-G} {down}{left}{left}{gryl} 
P{rvof}{CBM-I} {CBM-I}" 

114 h$="{brn} {rvon} {CBM-T} {CBM-T} {CBM-T} {CBM-T} {CBM-T} {CBM-T} 
{CBM-T} {CBM-T} {CBM-T} {CBM-T} {CBM-T} {orng} {CBM-T} {CBM-T} {CBM-T} {CBM-T} 
{CBM-T} {CBM-T}" 

115 s$="{rvon} {rvof}":rem 20 spc 
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213A 


6011 


116 b$="{down} {left} {left}{left}{left}{left}{left}{left}{le£ft}" | 55AB 
117 poke214,20:print C9F5 
118 fora=1t04:print"{wht}{CBM-@} {CBM-P} {CBM-@} {rght} {rght} {CBM-@} 9B94 
{CBM-P} {CBM-O} {CBM-O} {CBM-P}"; :next 
119 prints$s$s$s$; :return | 6423 
120 poke214,17-g-g:print ıE721 
121 printtab (b+g/2)"{grn} {CBM--} {down} {left} {rvon} {CBM-C} {rvof} 4378 
{CBM-V} {left} {left}{left}" 
122 fora=0togstep.5 OBDF 
123. printtab (b-1-int (a) +g/2) "{grn} {CBM-B} {rvon}"left$(",', 306B 
{CBM-POUND} {CBM-+} {CBM-POUND} {CBM-+} {CBM-POUND} {CBM-POUND} {CBM-+} 
{CBM-POUND} {CBM-+} {CBM-POUND} {CBM-+} {CBM-+} {CBM-POUND} {CBM-+} 
{CBM-POUND}",a*2+1) "{CBM-B} {rvo£f}" N 
124 next:printtab (b+tg/2)"{brn}{rvon} {rvof}":return 6ABF 
130 poke214,12:print:printtab (c+15)g$:ifd>15thend=1 ‚2158 
131 poke646,d:fora=0to2:printtab (ct1-a)d$:next:return 631B 
140 poke214,15:print:fora=1to6:printtab(c)h$:next 475E 
150 c$="{rvon}{yel}":ifw=Othenc$="{rvof}{gryl}" 1FBl 
151 poke214,16:print y BOOE 
152 printspc (ct4) ; :i£fk=1thenprintc$f$" {up} {up}"; B570 
153 ifj=1thenprinttab (c+13)t$ 684E 
154 return 13DF 
200 fora=828t0892:readb:pokea,b:next:return , BBEE 
201 ‚datal62,31,134,251,162,7,134,252,162,6 8507 
202 datal60,160,177,251,201,46,240,18,136,208 305E 
203 data247,56,165,251,233,160,133,251,176,2 A73A 
204 datal98,252,202,208,231,96,24,132,2,152 A5SI1E 
205 datal05,40,168,177,251,201,32,240,3,76 cAl6 
206 datall6,3,169,46,145,251,164,2,169,32 ED9A 
207 9ata145,251,760,718,3 ,c0c8 
Für wen war dieses Geschenk gedacht? 
= = 
Wishlistmaster 
System: C64 


Autor: muellerarmack 


Es ist Weihnachten und Santa ist mal wieder 
gestresst. Schnell muss es gehen, um alle 
Geschenk rechtzeitig unter den Baum zu kriegen 


und als wäre das nicht schon anstrengend’ 


genug, hat er auch noch die Wunschliste 
vergessen. 


Wer bekommt nun was? Sollte ZeHa den 
MEGA65 bekommen oder hat er schon einen? 


War der Schneider CPC für oobdoo bestimmt? 
Kannst Du helfen? 


Wirf einen kurzen Blick auf die vergessene Liste 
im Büro und sause zu Santa, um die Geschenke 
zu verteilen. Köpfchen und Schnelligkeit sind 
gefragt, um die Aufgabe zu meistern — und pass 
bloß auf den Grinch auf! 


10 poke53280,0:poke53281,0:poke646,10 9220 

20 gosub500:rem anleitung zeigen 2F30 

30 print:print"baue wunschliste...":gosub3000:rem wunschliste CBAA 
bauen 
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1000 
1010 
1020 
1030 


gosub2500:rem wunschliste durcheinanderbringen 
gosubl500:rem wunschliste zeigen 
gosub2000:rem spielbrett malen 

punkte=0 :gringe=0 

gosub6500rem sprite laden 

fori=1toanzahl 

geschenk$=du$ (i) 

print"{home}""wer kriegt'n "geschenk$"?" 
x=150:ju=0:pokev+16,0 

fory=50t0229 

pokev,x:pokev+l,y 
gosub1000:ifjo=111thengoto180 
pokel62,0:wait162,1:rem wait53265,128 
ify=229thengosub7000 

nexty 

nexti j 
print"{c1lr}{home}":pokev+21,0:poke646,10 
print"du hast "punkte"punkte erreicht.":print 
print"der grinch hat sich"gringe"geschenke" 
print"geschnappt.":print 

input"noch eine runde (j/n) ";wiederholung$ 
ifwiederholung$="j"thenrestore:g0ot030 
print"{clr}{home}" 

ml$="rid thesneuw nethcanhiew ehorfx43t7" 
fori=1len (ml$)-Stolstep-1:print (mid$ (ml$,i,1));:nexti:print: 


m2$="kcamrarelleum343t2" 


fori=1en (m2$)-Stolstep-1:print (mid$ (m2$,i,1)); :nexti:print: 


end 

rem *** anleitung *** 

print" {c1r}" 

printspc (10)"*** anleitung ***":print 
print"-gleich erscheint eine wunschliste" 
print"-praege dir die liste gut ein" 

print"-die geschenke fallen vom himmel" 
print"-du kannst ein geschenk mit dem joystick"; 
print" nur nach links oder rechts steuern" 
print"-mit feuer legst du ein geschenk ab" 
print"-das geschenk muss auf einem baum" 

print" liegen sonst kriegt es der grinch" 
print"-faellt es zu boden, kriegt es auch" 
print" der grinch" 

print"-der grinch kostet 2 punkte je geschenk" 
print"-richtige zuordnung bringt einen punkt" 
print"-falsche zuordnung kostet einen punkt" :print t 
print"alles klar? weiter mit tastendruck" 
getklar$:ifklar$=""then680 

klarse"" Y 

return 

rem *** Joystick routine *** 

s=2:minl=24:max1l=65 

jo=peek (56320) : 

ifjo=111thenxp= (x+6+ju*255-24) /8:yp= (y+11-50) /8:90sub6000: 


gotol100 


1040 
1050 
1060 


ifjo=119thenx=x+s 
ifx>=maxlandju=1thenx=maxl 
ifjo=123thenx=x-s 
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BF94 
EC64 
55DO0 
c419 
D538 
D343 
cc42 
36BC 
504D 
8899 
0699 
3DF4 
268A 
F8c2 
5EDB 
DA01 
3EC7 
788A 
A99B 
5400 
c891 
3DFF 
2739 
EO33 
B375 


C7B6 
DB2D 


FAAE 
EA82 
9781 

330E 
86DC 
23953 
2451 

346B 
CDC4 
96CF 
CcCOB 
A6FO 
c5B8 
C2CD 
ABES5 
0111 

EC5B 
CI9A8 
14BE 
E938 
39AD 
F121 

Cc625 
D8DE 
10F1 


1494 
4FF1 
B192 


1070 ifx<=minlandju=0thenx=minl 

1080 ifx>255thenx=x-256:ju=1:pokev+16,1:g0t01100 

1090 ifx<=0thenx=x+255:Jju=0:pokev+t16,0 

1100. return 

1500 rem *** wunschliste zeigen *** 

9510; print"tclr}"” 

1520 print"*** santas verschollene wunschliste ***":print:print: 
print 

1530 print" geschenk wer solls bekommen" :print 

1540 fori=1ltoanzahl 

1550 priritspc (3) wunschl$ ( ir ee len (wunschl$ (i1,0)))wunschl$ (i,1) 
1560 nexti 

1570 print 

1580 print:print:print"alles klar? weiter mit tastendruck" 

1590 getklar$:ifklar$=""then1590 

1600 klar$="" 

1610 return 

2000 rem *** spielbrett malen *** 

2010 print"{clr}{home}" 

2020 beschenkter=1 

2030 fork=12tol9step?7 

2040 s=0 

2050 forj=1to5 

2060 DA he A dowıik.6desridientmchäitkoneiIieen ) karan) 
{down} {down} {down} {döwn} {down} {down} {down} {down} {down} {down} {down} 
{down} {down} {down} {down} {down} {down} {down}",k); 

2070 printspc (0O+s) "{wht} {lgrn} {rvon} {CBM-+} {wht} {rvof}" 

2080 printspc (0+s)"{wht} {lgrn}{rvon} {CBM-+} {blu} {rvof}Q{lgrn} 
{rvon}{CBM-+} {wht}{rvof}" 

2090 printspc (O+s)" er nröneRehtiredt rortettaenkiivon) 
{CBM-+}{yel}{rvof}Of{lgrn} {rvon} {CBM-+} {wht} {rvof}" 

2100 printspc (O+s) "{lgrn} {rvon} {CBM-+} {pur} {rvof}QO{lgrn} {rvon} 


_ {CBM-+} {orng} {CBM-+} {lgrn}{CBM-+} {pur} {rvof}O{lgrn} {rvon} {CBM-+} 


{wht} {rvo£f}" 

2110 printspe (O+s) "{wht} {rvo£f} {orng} {rvon} {CBM-+} {wht} {rvof}" 
2120 printspc (O+s)" {orng} {rvon} {CBM- RLURHERNATN 

2121 printspc (O+s)wunschl$ (beschenkter, 1); 

2130 s=s+8:beschenkter=beschenkter+l 

2140 nextj 

2150 nextk 

2170 return 

2500 rem *** wunschliste durcheinanderbringen *** 

2510 ifwiederholung$<>"3j"thendimdu$ (anzahl) 

2520 forz=1toanzahl:du$ (z)=wunschl$ (z,o) :nextz 

2530 forz=1to30 

2540 tl=int (rnd (1)* (anzahl-1))+1:t2=int (rnd (1)* (anzahl-1))+1 
2550 pl$=du$ (t1) :p2$= 

2560 du$(t1)=p2$ 

2570 du$ (t2)=pl1$ 

2580 nextz 

2600 return 

3000 rem *** wunschliste bauen *** 

3010 anzahl=10 

3020 ifwiederholung$<>"j"thendimwunschl$ (anzahl,5) 

3030 zufallsstartwert=rnd (-ti) 

3040 fori=1ltoanzahl:rem geschenke 

3050 mu=sint (rnd (1) *30) :mu=int (rnd (1) *30) :geschenk=int (rnd (1) *29) +1 
3060 forj=1to (geschenk-1) :readz$:nextj 


32448 
AcC10 
F8C9 
EC2B 
81BA 
57B9 
c9D4 


33A0 
86E3 
81c0 
1EE6 
3259 
D78E 
7A64 
18F4 
EBS59 
8D6D 
FA3D 
1E8F 
CBD9 
CIEC 
9E6B 
D2AF 


8A9D 
8F11 


617A 


003E 


1FEB 
04C5 
B84A 
D3BB 
6589 
C73B 
DO0D7 
38E8 
AFED 
4A64 
A635 
ADD? 
EA41 
B2DB 
F734 
3648 
9E85 
B3CE 
158E 
FSCE 
52BE 
4058 
12B6 
4350 
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3070 readwunschl$(i,0) 

3080 restore 

3090 nexti 

3100 forj=1to30:readz$:nextj 

3110 fori=1toanzahl:rem beschenkte 

3120 mu=int (rnd (1) *70) :musint (rnd (1) *70): 
beschenkter=int (rnd (1) *69) +1 

3130 forj=1to (beschenkter-1) :readz$:nextj 

3140 readwunschl$ (i,1) 

3150 restore:fork=1to30:readz$:nextk 

3160 nexti 

3170 rem weihnachtsbaum festlegen 

3180 fori=1toS:wunschl$ (i,4)="12":wunschl$ (1,5) ="17" 

3190 fori=6t010:wunschl$ (i,4)="19":wunschl$ (1,5) ="24" 

3200 fori=1tol0step5:wunschl$ (i,2)="1":wunschl$ (i,2)="7":nexti 

3210 fori=2t0o10step5:wunschl$ (i,2)="9":wunschl$ (i,2)="15":nexti 

3220 fori=3tol0step5:wunschl$ (i,2)="17":wunschl$ (1,2)="23":nexti 

3230 fori=4t010step5:wunschl$ (i,2)="25":wunschl$ (i,2)="31":nexti 

3240 fori=5tol0step5:wunschl$ (i,2)="33" :wunschl$ (i,2)="39":nexti 

3250 return 

4000 rem *** geschenke *** 

4010 datavc20,c64,c128,c16,plus4,c116,a500,a2000,a1000,a3000 

4020 dataa4000,cd32,a600,a1200,sx64,vcs2600,cpc464, zx81,mega65 

4030 aata64maxi, 64mini,rute, a500min, a500max, 1531, gameboy,ps1,ps2 

4040 dataps3,ps4 

5000 rem *** beschenkte *** 

5010 datazeha, aitsch,drazil,mummeln, wizball, freddy, germans,nce1984, 
muffi 

5020 datamuelle, snoopy, jedi04,wte,tux64, root42,enduri,lynx,golomak 

5030 dataadac, tom64,webfrit,alienki,sparha,tiloby,bluebl 

5040 datadaiman,slicer,oliverw,desegi,cydo, rotzwa,andira 

5050 datadersch, drachen, norbipc,gunken, 01i716,ghost64,gmp,jannis, 
dekay 

5060 datacamail, frk-img, sgt22,drnolle,targas, jammet,bigby,andi64 

5070 datajoysti,goodwe,popeye,levty,tobias,gonzomd, gete, c6480er 

5080 datasculle,retrob,dierch.,parser,retror,senfso,swasti 

5090 dataturric,agamer, tecman, kosmas,mfakan, fnx73, capfut 

5500 rem *** geschenk sprite *** 

5510 data255,215,255,255,215,255,255,215,255,255,215,255,255,215, 
255,258 

5520 data215,255,255,215,255,255,215,255,255,215,255,85,85,85,85,85 


5530 data85,255,215,255,255,215,255,255,215,255,255,215,255,255,215, 


255 

5540 data255,215,255,255,215,255,255,215,255,255,215,255,255,215, 
255,128 . 
6000 rem *** geschenk ablegen *** 

6010 reihe=-1:spalte=-1 

6020 ifyp>=12andyp<=17thenreihe=0 

6030 ifyp>=19andyp<=24thenreihe=5 

6040 ifxp>=landxp<=7thenspalte=1 

6050 ifxp>=9andxp<=15thenspalte=2 

6060 ifxp>=17andxp<=23thenspalte=3 

6070 ifxp>=25andxp<=31lthenspalte=4 

6080 ifxp>=33andxp<=39thenspalte=5 

6090 ifreihe<0orspalte<Othengosub7000:90t06130 

6100 baum=reihe+tspalte: 

6110 ifwunschl$ (baum, 0) =geschenk$thengosub8000 

6120 i£fwunschl$ (baum, 0)<>geschenk$thengosub9000 
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= 
S] 
u 


6130 : 
6140 return 
6500 rem *** sprite laden *** 


6510 poke53285, 0:poke53286,10:poke53287,0: RAN 1 
6520 v=53248:pokev+21,1:poke2040,192: 


6530 sz=12288 


6540 restore:forj=1tol0l:readz$:nextj 
6550 forx=0to62:ready:pokeszt+tx, y:nextx 


6560 pokev+39,1 
6570 return 
3000 gem. gritich: *4* 


7010 print:print:print"kein weihnachtsbaum. das kriegt der" 


7020 print"gringe" 
7030 gringe=gringe+l 
7040 punkte=punkte-2 


7050 print:print"weiter mit tastendruck" 


7060 getklar$:ifklar$=""then7060 
7070 klar$="" 

7080 gosub2000 

7090 return 

BEROUT Lem RR UTIchtIg *** 

8010 print:print:print"richtig" 
8020 punkte=punkte+l 


8030 print:print"weiter mit tastendruck" 


8040 getklar$:ifklar$=""then8040 
8050 klar$="" 

8060 gosub2000 

8070 return 

3000. rem. ***. falschn*** 

9010 print:print:print"falsch" 
9020 punkte=punkte-1 


9030 print:print"weiter mit tastendruck" 


9040 getklar$:ifklar$=""then9040 
9050 klar$="" 

9060 gosub2000 

9070 return 


Für wahre Kenner und Experten 


Digitmon 


Wer schon immer von einem Commodore KIM-1 
geträumt hat, der bekommt dieses Jahr zu 
Weihnachten eine besondere Überraschung: Mit 
„Digitmon“ kann man auch auf dem C64 Daten 
so eintippen, als würde man vorm KIM-1 sitzen. 


Dazu hat der Autor uns die folgende Anleitung 
bereitgestellt: 


4D00 
63B8 
A7C7 
7FDA 
FFFD 
FB27 
c671 
6562 
B6D4 
2846 
FDAB 
CE47 
E2F5 
7F07 
3A99 
A9BC 
OF66 
E12A 
F55A 
3584 
c429 
9F26 
3012 
B776 
A476 
8AlA 
ACCF 
OBAO 
| B6F7 
7858 
B6B0 
024B 
B729 
‚ODDD 
E7C4 
C3DC 


System: C64 
Autor: Dirk Reismann 


„Dieses Programm wird einige an den alten 
Commodore KIM-1 von 1976 erinnern. Da man 
mit dieser Software auch die Daten "Digit für 
Digit" eingibt, bekam das Programm den Namen 
Digitmon. Die Programmierung ist ähnlich und 
sehr einfach gehalten. Die ersten vier Werte sind 
die aktuelle Adresse und die weiteren zwei der 
Speicherinhalt, alles Hexadezimal. 
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Nach dem Start ist man im Lese-Modus, so dass 
man mit dem Tasten 0-9 oder A-F die Adresse 
als Hexadezimalzahl eingeben kann. Die 
Eingaben werden wie beim KIM-1, von rechts 
nach links geschoben. 


Mit den Tasten W (Write) oder R (Read) kann 
man in den Schreib oder Lese-Modus gehen. Ist 
man im Schreibmodus, so lässt sich der Wert in 
der Speicherstele mit den schon oben 
genannten Tasten ändern. 


Die Taste P inkrementiert, also erhöht die 
Adresse und zeigt automatisch den aktuellen 
Inhalt an. Mit der Taste G (Go) wird, wenn man 


sich im Lese-Modus befindet, die aktuelle 
Adresse angesprungen. Dabei sollte man 
allerdings darauf achten, dass die richtige 


Startadresse angegeben ist, da sonst ein 


Absturz droht. 


Da das Programm in BASIC geschrieben ist, ist 
es natürlich nicht das schnellste (es gibt auch 
eine schnelle Assembler-Version). Vor allem die 
Umrechung von Dezimal mach Hexadezimal 
braucht ein bisschen Zeit. Kurzum, es ist ein 
sehr, sehr einfacher Hexeditor, der auf fast allen 
Commodore-Rechnern mit BASIC laufen sollte.“ 


Ein kleines Beispiel für den C64 nach dem Start 
des Programms: 


0400 

wee p 20 p d0O p 60 
r 0400 

999 


(Leerzeichen sind nur der Übersicht gespendet und brauchen 
nicht mit eingeben werden) 


1000 rem 

1010 rem digitmon f 

1020 rem (c)2022 dirk reismann 
2000 rem 

2010 rem start 

2020 rem 

2030 gosub 4030 

3000 rem 

3010 rem read mode 

3020 rem 

3030 get x$:if x$="" then 3030 
3040 if x$="g" then sys pl+ph 


3050 if x$="p" then gosub 7030:gosub 4030 


3060 if x$="w" then goto 5030 


Erklärung des Beispielprogramms: 


Zeile 1: 
0400 = Startadresse des Programms 
(Bildschirmspeicher ab 1024) 


Zeile 2: 
w = Schreibmodus 
ee = Assemblerbefehl INC (absolut) 
p = Nächste Adresse 
20 = Low-Byte des Bildschirmrahmens 
p = Nächste Adresse 
a0 = High-Byte des Bildschirmrahmens 
60 = Assemblerbefehl RTS (implizit) 
Zeile 3: 
t = Lesemodus 
0400 =Adresse 
Zeile 4: 
g = Starte von aktueller Adresse 
g = und noch einmal 
g =) 


c48c 
D039 
D95B 
F448 
FAB5 
CA68 
2033 

8804 
3CF8 
EC24 
0110 
DODF 
| 44C0 
495E 


3070 if x$<"0" or x$>"9" and x$<"a" or x$>"£" then 3030 


3080 if x$="a" then il=10:goto 3150 
3090 if x$="b" then il=11:goto 3150 
3100 if x$="c" then il=12:goto 3150 
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| 5BC7 
‚E904 
0386 
61E5 


3110 
3120 
3130 
3140 
3150 
3160 
3170 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
6000 
6010 
6020 
6030 
6040 
6050 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 


if x$="d" then il=13:goto 
if x$="e" then il=14:goto 


‚if x$="f" then il=15:goto 


il=val(x$) 
a=b:b=c:c=d:d=il 

gosub 4030 Bi 
goto 3030 

rem 

rem read byte 

rem 
ph=4096*a+256*b:pl=16*c+d 
te=peek (ph+tpl) 

gosub 9030 

return 

rem 

rem write mode 

rem 

get x$:if x$="" then 5030 


if x$="p" then gosub 7030:gosub 4030 


if x$="r" then 'goto 3030 


if x$<"0" or x$>"9" and x$<"a" or x$>"f£f" then 5030 


if x$="a" then il=10:goto 
if x$="b" then il=11:g0to 
if x$="c" then il=12:goto' 
if x$="d" then il=13:goto 
if x$="e" then il=14:goto 
if x$="f" then il=15:goto 
il=val(x$) 

£f=te-16*int (te/16) 

e=int (te/16) 

e=f:f=il 

te=e*l6+f 

gosub 6030 

goto 5030 

rem 

rem write byte 

rem 

poke phtpl,te 

gosub 9030 


‘return 


rem 

rem increment pointer 
rem 

d=d+1 

if d>15 then d=0:c=c+l 
if c>15 then c=0:b=b+1 
if b>15 then b=0:a=atl 
if a>15 then a=0 
return 

rem 

rem decimal to hexadecimal 
rem 

har" 

for n=1 toi 

y=int (dh/16) 

x=dh-16*y 

if x>9 then x=x+7 
h$=chr$ (x+48) +h$ 


3150 
3150 
31750 


5140 
5140 
5140 
5140 
5140 
5140 


2658 
| 253B 
\ B2E5 
\ 36DF 
4436 
D778 
FC6F 
95C0 
C0D3 
86E0 
FB29 
 82F8 
,B39C 
4EAO 
B39C 
349E 
AOBC 
9F62 
, DBB5 
7993 
FOB3 
1075 
DBOE 
21DE 
\ FEDO 
, DC4A 
E34A 
 BCBA 
6586 
E102 
85AC 
DOBA 
57C8 
\ 2963 
, 6D58 
70BF 
BD78 
029B 
BCA6 
2308 
4B14 
‚ 1ADB 
7534 
|E537 
CA67 
6DCD 
01C7 
\48F2 
| 2494 
56D0 
| 775D 
45F0 
5F73 
\11CD 
C1EC 
9D12 
6F14 
\ DFBE 
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8090 dh=y 3075 
8100 next n B6CF 
8110 return 2DEO 
9000 rem 2AAC 
9010 rem output to screen 94ED 
9020 rem 398C 
9030 print chr$ (145) TLDE 
9040 dh=ph+pl:i=4 7B1B 
9050 gosub 8030 B9A6 
9060 print h$; 3055 
9070 dAh=te:i=2 10BE 
9080 gosub 8030 lEIF 
9090 print h$; D362 
9100 return 020C 
Geschenke am Fließband 
= 
Weihnachtsmann außer Rand und Band 
System: C64 


Auch der Weihnachtsmann versucht stets, 
seinen Verpackungsprozess zu optimieren: 
Dieses Jahr kommen die Geschenke aus der 
Werkstatt direkt per Fließband geliefert. Damit er 
sie anschließend beim Verpacken richtig 
zuordnen kann, muss er sich die korrekte Reih- 
enfolge merken. 


Doch es bleibt nicht viel Zeit, denn seine 
Helferlein sind dieses Jahr besonders schnell 


Autor: mummelnase & Daimansion 


und schicken immer mehr Geschenke aufs 
Band. 


Beeil Dich und hilf dem armen Weihnachtsmann 
— merke Dir die Reihenfolge und komme bloß 
nicht durcheinander! Denn am Ende jeder Runde 
ist es Deine Aufgabe, die Geschenke in der 
richtigen Reihenfolge zu verpacken. 


10 rem start-anzahl geschenke auf laufband: 9E62 
20 ag=4 FB52 
30 rem geschenke zuwachs naechste runde: 4204 
40 gz=2 | A25C 
50 rem maximale fehler: 171B 
60 mf=10 10B4 
70 rem geschafft bei mehr als geschenken: 153 
80 gs=18 CA2ZA 
90 rem *** spiel initialisieren 424D 
100 poke53280,0:poke53281,0 | DCE6 
110 rem moegliche geschenke: D203 
120 mg=9 \EB92 
130 rem geschenke-reihenfolge: 994E 
140 dimg (20) 908E 
150 rem gesamt ok und gesamt falsch: ı 057E 
160 go=0:gf=0 | 2143 
170 rem ruecklauf: | 4B7E 
180 cr$="{down}{left}{left}{left}{left}{left}" 
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Bu 


190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 


rem nun hintergrund malen: 

gosub2210 

rem cursor unter titel positionieren 

rem und anleitung ausgeben: 
x=0:y=9:gosub2520 

print"{wht}taste druecken" 

print"{down} zum starten": 

rem cursor zum band: 

x=1:y=16:gosub2520 

rem introbildschirm laufen lassen: 

zm=rnd (-ti) ö 
zm=int (rnd (1) *mg) +1 

rem geschenk malen: 

gosub1290 

rem 10 spalten scrollen und taste abfragen 
fort=1to10 

gosub2120 

forw=1t030 

geta$:ifa$<>""then420 

nextw 

nextt 

g0t0290 

rem ** spielanleitung 
print"{clr}{home} {down} {down} {down} {down} {down} {red}" 
print"der weihnachtsmann braucht" 
print"deine hilfe!" 

print"{down}merke dir die reihenfolge der" 
print"geschenke auf dem laufband, damit 
print"diese richtig verschickt werden koennen." 
print"{down} {down} {wht}taste fuer start" 
geta$:ifa$=""then490 

rem geschenke wuerfeln: 

gosub2450 

rem hintergrund malen: 


‘gosub2210 


rem cursor zum band 
x=1:y=16:gosub2520 

rem zufaellige geschenke scrollen 
fork=1toag 

zm=g (k) 

gosub1290 

forb=1to10 

gosub2120 
forc=1to60:nextc:rem warten 
nextb:nextk 

rem nun rausscrollen: 
fort=1t030 

rem warten: 
forc=1to50:nextc 

rem eine spalte scrollen: 
gosub2120 

nextt 

rem geschenke uebersicht: 
print"{clr}{home}": 
forzm=1tomg 

ty=int ( (zm-1) /3) :tx=zm-1- (ty*3) 
rem cursor positionieren: 
x=tx*10+10:y=ty*7 


2C54 
DEAB 
19FB 
B2AB 
A4A9 
6C08 
D720 
D306 
8482 
5732 
2098 
DE9A 
2A63 
OC6F 
A8DB 
2CB7 
2ETF 
896B 
04CB 
EB4C 
1310 
5DD6 
E2A6 
FD80 
F20D 
9CF1 
6F2A 
DC68 
EB7F 
3C8F 
6691 
5BDB 
4EC6 
2409 
0004 
4EC7 
92AA 
40F4 
313C 
08B9 
D5C2 
841A 
DEDC 
1F32 
5434 
2276 
BEC6 
4ACD 
9D90 
A5B9 
0708 
061A 
5975 
69FD 
33CA 
26B6 
5DAO 
52FD 
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770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 


gosub2520 

rem geschenk in zm malen: 
gosub1290 

rem geschenk labeln: 
x=x-2:y=y+t3:gosub2520 

print" {wht}"chr$ (zm+64): 
nextzm 

rem anleitung ausgeben: 
x=1:y=22:gosub2520 
print"{red}packe nun die geschenke ein": 
rem ok und nicht ok zuruecksetzen 
ok=0:nok=0 

rem alle geschenke abfragen: 
fork=1toag 
geta$:ifa$=""then910 

ifasc (a$)<64then910 

ifasc (a$) >64+mgthen910 
ifa$<>chr$ (g (k) +64) then980 
rem geschenk richtig: 
ok=ok+1:go=go+1:g0t0o1010 
remgeschenk falsch: 
nok=nok+1:gf=gf+1 
ifgf>mfthen1200 

rem aktueller stand: 
x=1:y=24:gosub2520 


print"{grn}richtig: "ok" {red}falsch: "nok" {wht} (von "ag")"; 


nextk 
print"{clr}{home} {down} {down} {down} {down}{down} 


du hattest diese runde" 


1050 
"NOk" 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 


print" {down} {down} {grn}"ok" richtig {wht}und {red} 
falsch {wht}.." 

rem ist runde beendet?: 

ifag>gsthen1130 

print"{down}{down}taste druecken fuer nachste runde" 
geta$:ifa$=""then1090 

rem mehr geschenke: 

ag=ag+gz:goto510 

rem * spiel geschafft 

print"{clr}{home}" 

print"{down} {down} {wht}es ist geschafft!" 
print"{down}{down}ingesamt waren" 


print"{grn}"go" richtig {wht}und nur {red}"gf" falsch." 


print"{down}{down}{yel} 


du hast dem weihnachtsmann sehr geholfen!" 


1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 


end 

rem * spiel gescheitert 
print"{clr}{home} {down} {down}oh nein!" 
print"{down} {down}{red}leider sind nun" 
print"mehr als 10 geschenke falsch." 
print"{down}der weihnachtsmann muss wohl" 
print"eine nachtschicht einlegen." 

end 

end 

rem **** hilfsroutinen **** 

rem geschenk in variable zm malen: 
onzmgosub1320,1410,1500,1590,1680,1770,1860,1940,2030 
return ' 

rem *** ente malen: 
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709E 
4267 
518B 
EB5F 
F2A8 
F28E 
666E 
426C 
51F6 
9c11 
3BFE 
3202 
5641 
3B23 
8266 
B920 
3771 
3Dc8 
7CD2 
5E73 
9223 
C18A 
D76A 
677A 
577A 
4C45 
CIAC 
2921 


0EF4 


3C18 
F882 
40E2 
822E 
3343 
3798 
8A95 
89D5 
3DAA 
80BB 
4C03 
AE83 


752B 
7545 
933F 
E815 
54F2 

ESE2 
EAFS5 
189B 
14AB 
027F 
ECO1 
DAE9 
ABEA 
11A8 


1320 print" Narsyy, 250E 
1330 print"{orng} {rvon} {SHIFT-POUND} {yel}I{rvof} VcH6, AEBC 
1340 print" {rvon} {rvof} fCBM-F}"cr$; 7826 
1350 print"{rvon} {rvof} "cr$; 5069 
1360 print" {CBM-*} {rvon} {rvo£f}{SHIFT-POUND} "; 2988 
1370 rem cursor zuruecksetzen: B1D9 
1380 gosub2180 O0OD8A 
1390 return C3FA 
1400 rem *** joystick malen: > 3c1F 
1410 print" ners; \ 2All 
2920 print"  {gen}O  "er$; 53D1 
1430 print" {gry3}B{lgrn}{CBM-F} "cr$; 7D63 
1440 print" {grn}{rvon} ttvof£f)} Vers: 7BB8 
1450 print"{lgrn} {rvon} {CBM-I} {CBM-I}{CBM-I} {gry2}{rvof} "; ı C74A 
1460 rem cursor zuruecksetzen: CBEB 
1470 gosub2180 F5D3 
1480 return 5D8A | 
1490 rem *** batterie malen E451 
1500 print"{lblu} {yel}{CBM-D} {CBM-F}{lblu} "cr$; 0F27 
1510 print" {gry3}{rvon} {gry2} {rvof} "cr$; 11DA 
1520 print"{gry2} {lblu} {gry3}{rvon} {gry2} {lblu}{rvof} "cr$; 1A53 
1530 print"{gry2}. {cyn}{rvon} {lblu}{rvof} "cr$; 2BC5 
1540 print"{gry2} {cyn}{rvon} {CBM-POUND} {lblu}{rvof} "; 3033 
1550 rem cursor zuruecksetzen: 120B 
1560 gosub2180 17F7 
1570 return i 9719 
1580 rem *** boot malen CADE 
1590 print" {gry3}{CBM-N} {wht}{rvon}{CBM-*}{rvof} {left}"cr$; 3BD8 
1600 print" {gry3}{CBM-N} {wht}{rvon} {CBM-*}{rvof} {left}"cr$; 2526 
1610 print" {gry3}{CBM-N}{wht}{CBM-H} {left}"cr$; 8AA6 
1620 print"{red} {CBM-*} {rvon} {rvof}{SHIFT-POUND} {left}"cr$; 468C 
1630 print" {red} {CBM-*} {rvon} {rvof}{SHIFT-POUND} {left}"; 18BF 
1640 rem cursor zuruecksetzen: \ AECC 
1650 gosub2180 A9CB 
1660 return D7A9 
1670 rem *** geist malen 298D 
1680 print"{lblu} fahr B 2E56 
1690 print" {CBM-D}{CBM-I}{CBM-F} "cr$; 2979 
1700 print"{CBM-D} {wht}{rvon}{CBM-D} {lblu} {wht} {CBM-D} {lblu} 3FDF 
{rvof}{CBM-F}"cr$; 

1710 print"{rvon} Are > 88DB 
1720 print"{rvon} {CBM-K} {CBM-K}{CBM-K} "; A448 
1730 rem cursor zuruecksetzen: 0384 
1740 gosub2180 038E 
1750 return . 4739 
1760 rem *** pacman malen C5F9 
1770 print" {down}"; j 66E0 
1780 print"{yel}{rvon} {SHIFT-POUND} {CBM-*} {rvof} "cr$; C2F9 
1790 print"{rvon} OQf{rvof}{SHIFT-POUND} "cr$; F42C 
1800 print"{rvon} [CBM—*izvos} "Ver$; AB61 
1810 print"{CBM-*} {rvon} {rvof}{SHIFT-POUND} "; E127 
1820 rem cursor zuruecksetzen:' AEC9I 
1830 gosub2180 1374 
1840 return 8348 
1850 rem *** brille malen 5BE9I 
1860 print"{down} {down}"; A673 
1870 print"{gry3}B BVOES; EFA9' 
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1880 print"{gry2}{CBM-Z}{cyn}{rvon} {gry3}{rvof}C{cyn}{rvon} {gry2} 
{rvo£f} {CBM-X}"cr$; 

1890 printspec (5); 

1900 rem cursor zuruecksetzen: 

1910 gosub2180 

1920 return 

1930 rem *** baum malen 

1940 print" {yel}Q "cr$; 

1950 print" {grn} {rvon} {SHIFT-POUND} {CBM-*}{rvof} "cr$; 

1960 print"{rvon}{SHIFT-POUND} {CBM-* }"cr$; 

1970 print" {SHIFT-POUND} {CBM-*} {rvof}"cr$; 

1980 print" {orng}{rvon} {rvof} "; 

1990 rem cursor zuruecksetzen: 

2000 gosub2180 

2010 return 

2020 rem *** cola malen 

2030 print" {yel}N "cr$; 

2040 print"{red}{rvon} ' .{rvof} "cr$; 

2050 print"{rvon}cola{rvof} "cr$; 

2060 print"{rvon} ; {rvof} "cr$; k 

2070 print" {CBM-C}{rvon} {rvo£f}{CcBM-V} "; 

2080 rem cursor zuruecksetzen: 

2090 gosub2180 

2100 return 

2110 rem *** eine spalte scrollen 

2120 fori=1to5 } 

2130 print"{inst} {down} {left}{del}{rght}"; 

2140 nexti 

2150 print" {up} {up} {up} {up}{up}"; 

2160 return 

2170 rem *** cursor zurueck setzen 

2180 print"{left}{left}{left}{left}{left}{up} {up} {up} {up} {up}" 
2190 return 

2200 rem *** hintergrund malen 

2210 print"{clr}{home}"; 

2220 printspc (20) "{red} {CBM-O} {rvon} {CBM-Y}{CBM-T} {CBM-T} {CBM-Y} 
{rvof}{CBM-O} {lgrn}{CBM-+}{brn} {wht}.{grn} {orng}{rvon} 
{CBM-N} {rvo£f}" 

2230 print" {red}weihnachtsmann {rvon} {SHIFT-POUND} {CBM-P} {CBM-P} 


{CBM-P} {CBM-P} {CBM-P} {CBM-@} {rvof}{CBM-F} {grn} {rvon} {CBM--} 
{rvof} tforng} {CBM-N} {CBM-K}" 

2240 print"{gry2} {wht} {orng} {lblu} {orng} {lblu}{space} 
{red} {lblu} {gry2} {wht} {rvon} {SHIFT-POUND} {CBM-Y} {rvof} 
{CBM-I}{red}{rvon} {rvof}{CBM-F}{grn} {lred} {lgrn} {CBM-+} 

{brn} {wht} {orng} {rvon} {CBM-N} {wht} {rvof}."; 

2250 print" {red}ausser rand {wht} 

{rvon} {lred} - - {wht} {CBM-C}{red} {CBM-M} {wht}{rvof} 


{CBM-F} {grn}% {brn}{rvon}{CBM--}{orng} {rvof} {CBM-K}" 

2260 printspc (18)"{wht}{rvon} {lred} 
< {rvof} {rvon} {rvof} {rvon} >{wht} {rvof} O{lred} {grn}#{brn} 
{rvon} {CBM-I} {orng} {CBM-I} {rvof} {CBM-Y}O{rvon}{CBM-POUND} {rvof}"; 
2270 print" {red}und band {wht}{rvon} {lred} {CBM-D} 
{CBM-F} {wht} {rvof} {lgrn} {rvon} {CBM-POUND} {wht} {rvof} 
.{grn} {orng} {CBM-K}" 

2280 printspc (18)"{wht}{rvon} {rvof}{CBM-I}{CBM-I} 

{rvon} {rvof} {blk}{rvon}MM{lred}{rvof} {grn} {rvon} {CBM--}{brn} 
{rvof} {rvon} {CBM-N} {wht} {rvo£f}."; 
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39FB 


0545 
EO3F 
771D 
0cC8 
ED6B 
CE86 
514D 
BD10 
E41C 
351A 
4D77 
AOB4 
49D8 
74F0 
2D4A 
EE2F 
EBE6 
SF4F 
4F60 
898B 
CE3B 
86E7 
4DA7 
86FB 
245F 
8B89 
c60D 
D947 
53F6 
DBOE 
00F7 
AA2C 
0433 
60F9 


BFEB 


3620 


2EB8 


B307 


A506 


698D 


2290 printspc (18) "{CBM-*}{rvon} , {CBM-I} „, {rvof} 0D82 
{SHIFT-POUND} {lgrn}{rvon}{CBM-POUND} {brn} {orng} {CBM-POUND} 

{CBM-P} {CBM-P} {rvof}"; ' 

2300 printspe (16) "{red}{rvon}{SHIFT-POUND} {CBM-N} ı 16DE 
{wht } {red} {CBM-H} {CBM-*} {rvof} {grn} {CBM--}" 

2310 printspc (15)"{red}{rvon}{SHIFT-POUND} N 5548 
{wht} {CBM-POUND} {red}M {CBM-*} {rvo£f}" 

2320 printspc (15)"{red}{rvon} {CBM-N} {wht}{rvof}{CBM-+} 3B63 
{rvon} {CBM--} {CBM-D} {red} {CBM-V} {CBM-H} {rvof}" | 
2330 printspc(15)"{red}{rvon} {CBM-N} {CBM-C} {wht}{CBM-O} {CBM-P} 463D 
{CBM-O} {CBM-O} {red} {CBM-V} {CBM-H} {LVo2H" 

2340 printspc (15)"{rvon}M M {CBM-Y}{CBM-Y} N N{rvo£f}" 8Blc 
2350 printspc (15)"{rvon}{CBM-H} {wht}O{CBM-Y}{CBM-Y}{red} {yel} ‚4621 


{rvof} {CBM-K}{CBM-Y}{CBM-Y}{rvon}{CBM-K}{red} {wht}O{CBM-Y}{CBM-Y} 
{red} {CBM-H} {CBM-N} {rvof}" 

2360 printspc(15)"{CBM-H}{rvon} {gry3}{CBM-H} {blk} {yel}{CBM-L} 148B 
{rvof}{CBM-P}{CBM-P}{rvon}{CBM-J}{blk} {gry3}{CBM-H} {bIk}{CBM-@} 
{red} {rvof} {CBM-N}" 


2370 printspc (15)"{rvon}{CBM-G} {gry3}{CBM-J} {gry2}{rvof}{CBM-B} D48C 
{red} {rvon} {CBM-Y} «» {CBM-N} {gry3}{CBM-J} {gry2}{rvof}{CBM-B} {red} 

{rvon} {CBM-Y} {CBM-M} {rvo£f}" 

2380 print" {down} {down} {down} {down}" 42E4 
2390 print"{gryl}{rvon}{CBM-Y} {CBM-Y} {CBM-Y} {CBM- | OCCE 
1} {CBM-Y} {CBM-Y} {rvo£f}" 

2400 forw=0t038:print"W"; next 5F37 
2410 printspc (16)"{brn} {CBM-P} {rvon} {rvof} {rvon} {rvof} | 72cC8 
{CBM-P}" 

2420 printspc (15) "{rvon}{CBM-H} {rvof} {rvon} {CBM-N} FDE9 
{rvof}{home}"; 

2430 return D576 
2440 rem *** geschenke auswuerfeln 6CBF 
2450 fori=ltoag 14D8 
2460 x=rnd (-ti) 8959 
2470 x=int (rnd (1) *mg)+1 1925 
2480 g(i)=x CCEO 
2490 next 0556 
2500 return 5366 
2510 rem *** cursor pos an x und y setzen 8FOc 
2520 poke781,y:poke782,x DE7A 
2530 poke783,peek (783) and254:sys65520: return 5FAD 
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Nanu? Das ist doch... 


Choplifter! 


Damit wird wohl keiner gerechnet haben — der 
Hubschrauber-Klassiker im BASIC+PETSCII- 
Gewand. Ein schöneres Weihnachtsgeschenk 
kann sich ein enthusiastischer C64-Nutzer kaum 
gewünscht haben. 


Da es sich hierbei um die Umsetzung eines 
bekannten Titels handelt, wird hier nicht näher 


System: C64 
Autor: Roman Werner 


auf das Spielprinzip eingegangen — entweder 
man kennt „Choplifter!“, oder man kennt es eben 
nicht. In letzterem Falle soll es dem Spieler 
selbst überlassen bleiben, herauszufinden wie 
gespielt wird — genauso wie damals, als man 
Spiele noch auf dem Schulhof getauscht hat... 


10 dimp (270) :y=18:g9=-7:e=100:u=30:j2=56320:s=54272:w=56035 \ 8EC8 
20 hd$="{home} {down} {down} {down} {down} {down} {down} {down} {down} 305 
{down} {down} {down} {down} {down} {down} {down} {down} {down} {down} {down} 
{down} ":s$=", ":d1$="{down}{left}{left}{left}{left}{left}{left} 
{le£ft}" 
30 h$=" {blu} {CBM-M} {gry3} {CBM-+} "+d1$ A939 
40 h$=h$+" {rvon}{lblu}{SHIFT-POUND} {CBM-*} {rvof} "+d1$ 884A 
50 h$=h$+" {rvon} {blu} {CBM-C} {CBM-V} {rvof}O{rvon}{CBM-C} {CBM-V} 62AB 
IEVSE}," 
60 t$=" {gry2}C{CBM-R}C{gry3} "+d1$ 42C7 
70 t1$=" {gry2}D{CBM-R}F{gry3} "+dl1$ 4844 
80 tr$=" {gry2}F{CBM-R}D{gry3} "+d1$ | 2E54 
90 r2$="WDDEI "+d1$:r1$=" WCEI "+d1$:m$=" UEI "+d1$ |:72E3 
100 11$=" UECW "+d1$:12$=" UEDDW"+d1$:b$=" UCK " ‚40B0 
110 c$(0)=t1$+r2$+b$:c$ (1)=t$+r1$+b$:c$ (2) =t$+m$+b$ 8AF2 
120 c$ (3)=t$+11$+b$:c$ (4) =tr$+12$+b$ | 5970 
130 p$(0)=" ":p$ (1)="X":p$ (2)="{CBM-@}" ı 0F74 
140 fori=0to24:pokesti, .:next:pokes+20,255:pokes+18,33 , ADC5 
150 pokes+1,10:pokes+5,76:pokes+8,100:pokes+12,8:pokes+13,8 8EE6 
160 rem *** create scene *** 02BD 
170 poke53280,0:poke53281,0:pokes+24,15:print"{gry2}{clr}"; FC3B 
180 print"{yel}U"; :fori=0t037:print"C"; :next:print"I"; B66F 
190 print"{yel}T{red}{rvon} ";:fori=1to3 1D9A 
200 print"{red}{rvon}"s$"{rvof}{wht}"mid$ ("AZS",i,1)"00";:next 56FA 
210 print"{red} {rvon}"s$"{rvof}{yel}Y"; 8540 
220 print"{yel}J"; :£fori=0t037:print"C"; :next:print"K" 9604 
230 £fori=0t0159:poke1864+i1,160:next BDB2 
240 fori=0t019:o=int (rnd(.)*340) *2:pokel1l44+0,46 D106 
250 poke55416+0,14:next:printhd$tab (23) "{up} {up}"h$ | 12B6 
260 rem *** next level *** 2AB8 
270 £fori=0t019:p (250+i)=2:0=rnd (0) *250:ifp(o)=Othenp (0) =2 A3E9 
280 a=sint (rnd(.)*237)+10:onp(a)goto280:p(a)=1:next:k=0:1=3 E884 
290. rem *** main loopiHrk% 82A6 
300 forc=.tolstep.:printleft$ (hd$,y)tab (17)s$d1$c$ (x); 14B8 
310 pokew+tz,..:z=2-z:ify<oythenify<1l18thenprintd1$"{gry2}"s$ 8964 
320 e=e+l:ife<l2thenpoked, 32:d=d+4:ife<11thenpoked, 67:g90sub850 FB66 
330 j=127-peek (j2) :oy=y:ox=x:0g=g \ 7EE8 
340 iffthengosub890:g0t0380 \c879 
350 ife>uandg>6thene=. :b=int (rnd(.)*15) :d=1221+b*40 B683 
360 ifj=.thenifx=30rx=1thenx=x- (x<2)+(x>2) | D759 
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370 ifjandlthenifl=3org<26thenify>5theny=y-1:w=w-40:ify=17thennext |1D40 
380 ify=18thenpokes+14,50:m=.:on- (1<3) gosub700:o0nkgoto270:next | FE46 
390 ifjand2thenify<18theniff=0theny=y+1:w=w+40:ify=18thenl=-4 ‚B610 
400 ifjand4orx=4thenifg<265thengosub450 24CD 
410 ifjand8orx=.thenifg>-T7thenog=g:gosub530 6D77 
420 ifog=gthenpokes+14,100 BD03 
430 next | 167E 
440 rem *** heading left / scroll to the right *** FD33 
450 ifx<4thenx=x+1:m=. 11E8 
460 ifm=.thenm=1:pokes+14,150 | 18CB 
470 ify<10thenpokes+14,200:m=. 0OF20 
480 ifg<8ötheng=g+t1l:gosub620:return BOB1 
490 fori=1to9-y:g=g+1 AFC9I 
500 printhd$tab (39) "{gry2}{del}{rght}{rght} {up} {inst}"p$(p(g)) 118B 
510 next:return DDE3 
| 520 rem *** heading right / scroll to the left *** F805 
530 ifx>.thenx=x-1:m=. CD33 
540 ifm=.thenm=1:pokes+14,150 : 95F6 
550 ify<10thenpokes+14,200:m=. c11D 
560 ifg<8theng=g-1:gosub620:return 3BlE 
570 fori-1t09-y:g9=g-1 1DE3 
580 printhd$"{gry2}{rght}{del}"tab (38) 741C 
2,590 ifg>37thenprintp$ (p (g-38)) , 02D2 
600 next:return ı 43F1 
610 rem *** move homebase border and house *** ı1B04 
620 t=og*3:a=g*3:fori=1884t01964step40 AB39 
630 ift>-2landt<20thenpokei+tt, 160 O0D6D 
640 ifa>-21landa<20thenpokeita, 236 6667 
650 a=a+g/2:t=t+og/2:next:ifg>3thenreturn F87F 
660 ifg<3thenprinthd$tab (g+30) "{up} {up}"h$ 8368 
670 ifg=3thenprinthd$tab (g+29) "{up} {up}"s$d1l$s$dl$s$ 7FE8 
680 return 2A8D 
690 rem *** pick up hostages *** : 15F2 
700 ifg<.andn>.thenn=n-1:p=p+1:printhd$tab (22) "X"; :90t0750 FE65 
710 1=1+1:a=g-20-1:ifa<.thenreturn CFOO 
720 ifp(a)<>landl<3got0700 9E7D 
730 ifp(a)<>1thenreturn 8C82 
740 n=n+tl:p(a)=. 1FB3 
750 pokes+8,50:pokes+11,17:fori=0t099:next:print"{left} " 5869 
760 pokes+8,100:pokes+11,16:print"{home} {down} {wht}"; BES53 
770 printspe (10) right$ ("0"+mid$ (str$ (q),2),2); 1ABD 
780 printspc (8) right$ ("0"+mid$ (str$ (n) ,2),2); 0OE60 
790 printspc (8) right$ ("0"+mid$ (str$ (p),2),2) 921E 
u 800 ifp<20thenreturn 6AED 
=. 810 printleft$(hd$,11)tab (13) "{lblu}congratulations" "03AA 
820 waitj2,16,16:n=0:p=0:q=q+l:ifu>15thenu=su-4 OBC4 
830 print"{up}"tab(10)s$s$s$:k=1 CAB5 
840 printhd$tab (22)"{rvon}f{rvof}{up}{left}I":g0t0760 1D47 
Pahrem,**% check. i£ hit.,*** AAFA 
860 ife>4ande<8thenifb+4=yorb+3=ythenf=1:pokes+4,129:pokes+18,0 A947 
870 return | C8BC 
880 rem *** black hawk down *** DD74 
890 pokew-s+42-z,102:pokew+42-z,7:ify<l8thenw=w+40:y=y+1 4AEA 
900 ify=18thenpoke214,10:print:printtab (17)"{lred}the end" EFE7 
910 ify=18thenifjandl6thenrun 7AE4 
920 return: rem *** 2022 by roman werner EOAD 
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Wie grün sind Deine Pixel? 


PET-Mas-Tree 


Das vermutlich kürzeste Programm dieser 
Ausgabe ist diesmal für einen nicht weniger 
besonderen Rechner gedacht, der bislang noch 
in keiner Ausgabe präsent war -— den 
Commodore PET! 


Sein grüner Bildschirm lädt doch direkt dazu ein, 
einen schönen Tannenbaum zu zeichnen, und 
wer hätte gedacht, dass das mit so wenig 
BASIC-Code möglich ist? 


Je nach verwendetem PET-Modell (40 oder 80 


System: PET 
Autor: Stephan Freudenreich (Lynx) 


Zeichen) kann über eine Anpassung der Zahl 
„19“ (in Zeile 2 und 3 vorkommend) der Baum 
zentriert werden — im 80-Zeichen-Modus muss 
daraus eine „39“ werden. 


Das tolle an diesem Programm - es funktioniert 
sogar auf vielen anderen Commodore-Rechnern. 
Eventuell sind minimale Anpassungen nötig, um 
den Baum ebenfalls in grün darzustellen. Hier ist 
der Leser gefragt und zum Experimentieren 
eingeladen! 


1 poke59468,12:a$=chr$ (18) +chr$ (233) +" n 
2 fora=.5tol0step.5:b%=a:printspc (19-b%) left$ (a$,b%*2+2)chr$ (223) :next 


3 printspec (19) chr$ (166) chr$ (166) 


Elfen machen Ärger 


Dungeons & Presents 


Es war gerade, als die fleißigen Helfer vom 
Weihnachtsmann die Geschenke auf den Schlit- 
ten laden wollten, als ein böser Weihnachtself 
diese gestohlen hatte. Er verschanzte sich in 
einem Verlies, in das du konnntest gerade noch 
in das Verlies gelangen konntest, bevor es von 
ihm versiegelt wurde. 


Es ist deine Aufgabe, die Geschenke zurück- 
zuholen. Das ist aber nicht so einfach, da der 
Raum mit den Geschenken mit einer ver- 
schlossenen Tür gesichert ist. Der böse EIf 
bewacht den Schlüssel, in einem Raum hinter 
einer magischen Wand, die erst verschwindet, 
wenn du alle Glocken eingesammelt hast, die 
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System: VC20 mit 3K RAM-Erweiterung 
Autor: Rainer Kappler 


nacheinander erscheinen. Nachdem du den 
Schlüssel aufgesammelt hast, mußt du die 
Geschenke aus dem Raum mit der gelben Tür 
mitnehmen. Hast du das geschafft, geht oben 
links ein gelbes Tor auf, sodaß du das Verlies 
verlassen kannst und der Weihnachtsmann die 
Geschenke ausliefern kann. 


Außerdem hat der böse Elf noch Kanonen in den 
Gängen aufgestellt, die mit Schneebällen 
schießen, von denen du nicht getroffen werden 
darfst. Ebenso arbeitet die Zeit gegen dich, denn 
das Weihnachtsfest rückt immer näher und 
sobald der Timer auf null ist, ist es zu spät für 
den Weihnachtsmann, um die Geschenke aus- 


zuliefern. Dies kostet dich eines deiner drei 
Leben und du mußt das Level von vorne be- 
ginnen. Dir wird ebenfalls ein Leben abgezogen, 
wenn du die Eiszapfen berührst, die in dem 
Verlies verteilt sind, oder der böse EIf dich 
erwischt. 


Für das Aufsammeln einer Glocke, des Schlüs- 
sels und der Geschenke, gibt es jeweils einen 


Punkt. Hast du das Level erfolgreich abge- 
schlossen, wird dir die übriggebliebene Zeit auf 
den Punktestand addiert. Im jedem höheren 
Level mußt du eine Glocke mehr aufsammeln, 
bis die maximale Anzahl von zwölf erreicht ist. 
Alle 250 Punkte gibt es außerdem ein 
Extraleben. 


Die Steuerung erfolgt mit dem Joystick. 


l rem dungeons & presents 6853 
2 rem (c) 2022 by rainer kappler (masterware entertainment) 4074 
3 rem https://masterware-entertainment.itch.io 4F34 
10 print"{c1r}":poke52,28:poke56,28:poke36879,8:poke36869, 255: DO4F 
poke657,128 
11 fori=0t0167:reada:poke7168+i,a:next: fori= 0t07:poke7424+i1,0: ı 6D4C 
next:dimlk (11) | 
12 fori=0tol8l:reada:poke7432+i,a:next:np=38: EAEA 
ifpeek (60900) =5thennp=25 
20 /03t360,96,153,161,161,153,66,60,251,251,2517,0,223,223,223,0,0, 95B0 
0,0,224,191,229,0,0,56 
21 data56,16,124,186,40,104,12,56,56,16,124,186,40,44,96,126,66, c1D4 
B26,126,122,126,66,126 
22 datal26,66,66,66,66,66,66,66,0,80,32,216,216,0,216,216,85,170, |B5DF 
227170,85,170,85,170 
23 datal6,56,56,56,124,254,16,0,7,03,241,239,255,83; 7,0,224,252, 1BF3 
143,247,255,252,224,0 
24 data0,0,24,60,60,24,0,0,56,56,16, rn 170,40,40,108,16,136,251, 64BF 
=27251,136,16,0 
25 datal08,40,40,186,124,16,56,56,8,17,223, 240, 223,17,.8,0,28,98, 525E 
56,18,124,144,40,76 
26 datall2,184,56,144,124,18,40,100,62,62,28,28,28,8,8,0,0,8,8,28, | 874E 
28,28,62,62 
27 datal69,15,141,14,144,169,0,141,243,3,141,244,3,141,245,3,141, 65F1 
10,144,141,13,144 
28 datal20,169,29,1417,21,3,169,43,141,20,3,88,96,173,243,3,205, 82B7 
245,3,240,6,238,243 
ee Qata3,16,191,234,173,11,144,201,1,176,44,174,244,3,189,127,29, 414F 
207,1255,240,23,141 
30 datall,144,141,12,144,189,159,29,141,245,3,238,244,3,169,0,141, | 9E76 
=237,3,76,191 
31 data234,169,0,141,243,3,141,244,3,76,191,234,169,0,141,11,144, [8746 
141,12,144,141,243 
m2 datas,169,1,141,245,3,76,191,234,163,187,187,195,187,183,175, F105 
275,175,195,195,201 
23 '8ta195,187,183,163,163,201,20171,203,201,195,187,175,163,183, 6DCB 
175,195,183,187,0,255,18 
24: datal8,27,9,9,9,18,367,18,18,21,9,9,9,18,36,.18,18,18,9,9,9,18, E656 
=ur9,12,18,18,18,36,36 i 
40 fori=0to5:reada,b:ca(i)=a:di (i)=b:next:fori=0toll:reada: B1EB 
Ik(i)=a:next:sys7432:90t0950 
= data7794,-1,7961,-1,7753,1,.7845,1,7979,-1,8014,1 0008 
42 data7768,7812,7878,7900,7922,7944,7988,8032,8054,8076,8120,8144 | 27E6 
200 poke36881,160:print"{clr}{down}{down}{red} ı 3580 
aaaaaaaaaaaaaaaaaaaaaaa a{pur}j{red} aaaaa"; | 
202 print"a aa aaaaa aafyel}b{red}aaa- {pur}k{red}a {wht} 4016 
t{red}a {wht}s{red}a a a": 
204 print"a a aa aa aa aa a{pur}j{red} a AUTO TA 
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206 print"a {pur)k{redja aa a a aalwht}t s{red} 4850 
a aa a"; 


208 print"aaaaa a aa aalcyn}g{grn}g{blu}g{red} BE58 
a a a{wht}t {red}a am } 

210 print"aa{yel}e{red}aaaaaaaa aaa aa j {pur}k{red} | 9C3C 
aa a"; 

212 print"a aaaaaaaaaaaaaa a aa a{pur}j{red} a aus co01 

214 print"a a a aa aaaaaaaaaaaa aa a"; 40EA 

216 print"a : {wht}t{red}aa aa aaaaaaaaaaaaaaaaa a"; AEB8 

218 print"a {wht}sss sss {red}aa{wht} 2BD7 
t ttt ttt  t{red}a"; | 

220 print"aaaaaaaaaaaaaaaaaaaaa{home}":poke8185,1:poke38905,2: FOF3 
£=30720 

221 fort=0to2:poke8072+t+f,3:poke8072+t,8:next:bo=90.9 3F1A 

222 1£=7808:ea=17:eb(0)=1:eb(1)=-1:eb(2)=22:eb (3)=-22:pokelf+f,5: 2F37 
pokelf,ea 

230 px=1:py=3:p1l=7680+py*22+px:an=3:pokepl,an:pokepl+f,1 7540 

231 co=batma*22:no=0:en=0:k=0:fi(0)=0:fi(1)=0:fi(2)=0 5168 

232 poke36881,np:gosub550:g0sub270:90t0285 BOC8 

270 print"{home}{down}{rvon}{wht}high "hi B9IE2 

275 ifel=300thenli=li+1l:el=0 DDO9 

276 print"{home} {rvon} {wht} {rght} {rght} {rght} {rght} {rght} {rght} 89EO0 
{rght} {rght} {rght} {rght} {rght} {rght}lives"li;"{left} " 

277 print"{home}{rvon}{wht}score"sc 3C2D 

278 tl=int (bo) :print" {home} {down} {rvon} {wht} {rght} {rght} {rght} 3978 


{rght} {rght} {rght} {rght}{rght} {rght} {rght} {rght} {rght} 
time "TIEF" fleitc} "ireturn 


285 gosub400 D94B 
290 z=0:bo=bo-.1:gosub278:iftl=0then500 9F92 
291 gosub450:ifpl=sb (0)orpl=sb (1) orpl=1fthen500 F596 
292 gosub300:ifpl=sb (0) orpl=sb (1) orpl=1fthen500 B89IE 
298 goto290 2DA1l 
300 j=peek (37151) :if (jandl16) =Othenx=-1:y=0:90t0320 5825 
304 if(jand8)=O0thenx=0:y=1:90t0320 \ 0598 
305 if(jand4) =Othenx=0:y=-1:90t0320 2CD6 


306 poke37154,127:j=peek (37152) :poke37154,255:if(jandl128)=Othenx=1: | 54E6 
y=0:90t0320 


308 return 86EE 
320 ifpeek (plty*22+x)=32then329 7B56 
321 ifpeek (pl+ty*22+x)=19orpeek (pl+y*22+x)=20then500 4048 
322 ifpeek (pl+y*22+x) =lorpeek (pl+y*22+x) =8thenreturn 21315 
323 ifpeek (pl+y*22+x)=10orpeek (pl+y*22+x)=11thenreturn FE14 
324 ifpeek (pl+y*22+x)=9thensc=sc+tl:el=eltl:gosub275:g0t0410 3BF9 
325 ifpeek (pl+ty*22+x)=5andk=O0thenreturn 4A25 
326 ifpeek (plty*22+x)=2thenk=1:sc=sc+tl:el=el+1:gosub275 4554 
327 ifpeek (pl+ty*22+x)=T7thengosub340 1,10293 
328 ifpeek (pl+y*22+x)=6thenen=1 4170 
329 pokepl, 32:px=px+tx:py=pyty:pl=7680+py*22+px 902C 
330 ifan=3thenan=4:90t0332 i EE56 
331 ifan=4thenan=3 D5D7 
332 pokepl+f,1:pokepl,an:ifen=1thenfort=0t05000:next:g0t0600 3C7A 
335 return EF96 
340 pokepl-21,32:pokep1-23, 32:poke7726+f,7:poke7726,6:sc=sctl: 8117 
el=el+1:gosub275:return 
400 l=int (rnd (1) *12) :a=sint (rnd (1) *17) 9EOA 
401 kl=1k(l)+a:ifpeek (kl) <>32then400 FS7E 
402 pokekl+f,7:pokekl,9:return 3F70 
410 ifpl=sb (0) orpl=sb (1)orpl=1fthen500 56FA 


58 Weihnachten auf dem Commodore 


411 no=no+1l:ifno<>mathengosub400:90t0325 7E59 
412 fort=0t02:poke8072+t,32:next:g0t0325 99E0 
450 iffi (z)=O0thengosub490:90t0456 E85D 
453 pokesb (z) ,32:ifpeek (sb (z) tri (z))=1thenfi (z)=0:sb (z)=0:90t0456 F5D7 
454 ifpeek (sb (z)+ri (z))=3orpeek (sb (z) +ri (z) )=4thenen=2 80D8 
455 sb(z)=sb(z)+tri(z) :pokesb (z)+f,1:pokesb(z),12 5B14 
456 z=z+l:ifz=>2then470 FAA8 
458 g0t0450 7A2F 
470 a=int (rnd(0)*4): | FAOE 
ifpeek (lf+teb (a) )=lorpeek (lf+teb (a) )=2orpeek (lf+teb (a) )=8thenreturn 
471 iflf+eb(a)<7808orlf+teb (a) >8052thenreturn 4689 
472 ifea=17thenea=18:90t0474 89F6 
473 ifea=18thenea=17 ACFF 
474 pokelf,32:1f=1f+teb (a) :pokelf+f,5:pokelf,ea 7927 
475 return 2 48B6 
490 i=2*3+int(rnd(1)*3) :sb(z)=ca(i):ri(z)=0:ri(z)=di(i) i AF16 
491 pokesb (z)+£f,1:pokesb (z) ,12:fi(z)=1:return FCF3 
500 fori=0to5:form=13t0ol6:pokepl+f,1:pokepl,m:fort=0to100:next: B5SF8 
next:next 
501 £ort=0t02000:next:li=li-1:ifli=0then900 5A65 
502 iftl<=0then200 7BBB 
503 gosub276:pokepl,32:fori=0tol:pokesb (i),32:fi(i)=0:next:pokelf, |23CC 
32 
504 ifpeek (plt1)=11thenpx=px-3 3B01 
505 ifpeek (pl+2)=11thenpx=px-2 7574 
506 ifpeek (pl+3)=11thenpx=px-1 i 0C35 
507 ifpeek (pl-1)=10thenpx=px+3 B9CB 
508 ifpeek (pl-2)=10thenpx=px+2 5342 
509 ifpeek (pl-3)=10thenpx=px+1 9128 
510 ifp1=>7808andpl<=78100rp1=>7830andpl<=7832thenpx=px+66 7962 
511 pl=7680+py*22+px:pokepl+f,1:pokepl,an:1f=7808:pokelf+f,5: D742 
pokelf,ea:g0t0290 i 
550 print"{home} {rvon} {wht} {rght} {rght} {rght} {rght} {rght} {rght} D94F 
{rght}level"le j 
551 print"{rvon}{wht}{rght} {rght} {rght} {rght} {rght} {rght} {rght} 52C1 
get ready!" 
552 fort=0t04000:next 77E9 
553 print"{home} ui 7464 
return 
600 a=tl:fort=1toa:sc=sc+tl:el=el+1:bo=bo-1:g0sub275:next AB86 
E 601 poke7726+f£f, 7:poke7726,6:fort=0t04000:next:le=le+l:ma=matl: f 0c12 
j ifma>12thenma=12 
602 bo=90.9:90t0200 BFOD 
iR 900 £fori=0t09:poke7692+i1,32:poke7714+i,32:next 7CB9 
% 901 print" {home} {rvon}{yel}{rght}{rght}{rght}{rght}{rght}{rght} '614B 


—  f{rght}{rght} {rght} {rght} {rght} {rght}game{down}{left}{left}{left} 
_ {left}over" :fort=0t05000:next:ifsc>hithenhi=sc 


950 print"{clr}{red}";:poke36881,160:sc=0:ma=5:li=3:le=1:el=0 E75A 

951 print"aaaaaaaaaaaaaaaaaaaaa":fori=0to2: 424A 
print"a a":next 

952 print"aaaaaaaaaaaaaaaaaaaaa" B89A 

953 print"{down}{down} {down} {rght}{rght} {rght} {rght} {rght} {rght} OBF4 


{wht}@ {rvon}2022 by{down} {down} {left}{left}{left}{left}{left}{left} 
{left}{left}{left}{left}{left}{left}rainer kappler" 

954 print" {down} {down} {down} {down} {rght} {rght} {rght} {rght} {rght} 5157 
{rght} {rvon}masterware {down} {down} {left}{left}{left}{left}{left} 
{left} {left}{left}{left}{left}{left}{left}entertainment":poke36881,np 
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955 poke646,i:print"{home}{rvon} {down} {down}{rght} 


dungeons & presents" 


956 p=peek (37151) :if (pand32) =0then200 


957 i=i+tl:ifi=8theni=0 
958 fort=0t0150:next:goto955 


DE8D 


| A57B 
2F49 
2457 


Dungeon Crawler im weihnachtlichen Gewand 


Hero Of The 24th 


Wir schreiben den 24sten Dezember 2022. 
Mitten im Auslieferungsstress stellt Santa Claus 
fest, dass hier irgendetwas faul ist. Merkwürdige 
Geräusche dringen aus den Zimmern des 
Hauses, in dem er gerade seine Geschenke 
abgeliefert hat. Und tatsächlich — der Grinch und 
sein Neffe, der schwarze Klaus, wollen sich alle 
Geschenke unter den Nagel reißen, Chaos 
stiften und Weihnachten ruinieren. 


Hier trittst Du auf den Plan. Suche in den 
dunklen Räumen nach allen Geschenken, 
verjage die Bösewichte und lege alle Geschenke 
wieder unter den Baum. 


Wie wird gespielt: 
Du steuerst den Weihnachtsmann mit dem 
Joystick in alle acht Richtungen. 


Vorsicht, alle paar Schritte verlierst du einen 
Energiepunkt. Ein Druck auf den Feuerknopf 
lässt dich rasten und gewinnst zwei Energie- 
punkte dazu. 


Begegnest du dem Grinch oder dem schwarzen 
Klaus, kannst du in einem Duell gegen ihn 
antreten oder versuchen zu flüchten. Solltest Du 
Dich für den Kampf entscheiden, so wird per 
Feuerknopf der nächste Angriff gestartet (immer 


4 poke56,29:poke55,192:clr 


6 j=36879:pokej-10,255:pokej-1,16:pokej,26:x=rnd (-ti) :s=7680: 


c=38400 


10 .£=62:w=63:p1l=56:t=0:ph=15:pg=0:5jJy=37152 :b=7592 :m=0 :z=22 
16 print"{home}h+l<{rvon} {CBM-N} {rvof}.8( 


System: VC20 
Autor: aitsch 


im Wechsel). Flüchten ist dann nicht mehr mög- 
lich. 


Hast du alle fünf Geschenke unter dem Weih- 
nachtsbaum abgelegt, gewinnst du das Spiel. 


Noch ein paar Tipps: 

Du findest keinen Ausgang zum nächsten 
Raum? Gehe nochmal dicht an allen Wänden 
lang. Santa ist alt und kann nicht mehr so weit 
gucken. 


Trittst du lieber die Flucht an, solltest du diagonal 
gehen und versuchen ein Geschenk oder die 
Ecke eines Ausgangs zwischen euch zu bringen. 
Der Feind wird die Verfolgung nach ein paar 
Schritten abbrechen. Flüchte immer "diagonal" 
wenn es möglich ist. 


Greife immer als erster an, das schwächt deinen 
Gegner. 


Hast du nach dem Abtippen eine Fehlermeldung 
oder willst das Listing ansehen, kannst du mit 
POKE 36869,240 den Zeichensatz auf Stan- 
dard zurücksetzen. 


36FB 
8A7C 


10F4 


{rvon} {CBM-POUND} {rvof} |387B 


0<{rvon}+8{rvof}, (x<${rvon}{CBM-B}={rvof}2$x@{rvon}L88{CBM-C} {CBM-C} 
88{rvof}@@@{rvon}**{rvof}@@@pp (8{CBM-H} {CBM--}{rvon} {CBM-V} {rvof}p | 


60 Weihnachten auf dem Commodore 


.18 £fori=0t047:poke7632+1,255:poke7616+i,peek (s+ti) :next 
22 print"{clr}{blk}{rvon}wait";chr$ (8) :t$="loose" 
24 fori=1ltoz:pokes+ti*z,w:pokes+21l+i*z,w:pokes+483+i,w:pokes+t2l+i, 
w:next 
28 qm=0:d=0:ro=int (rnd(.)*5) :£forv=0to4 
30 x=int(rnd(.)*3)+3:y=int (rnd(.)*5)+3: 
ifx+y>llorx+y<8orx*y>30then30 
32 fori=0to4:ifx=x% (i)andy=y% (i)then30 
34 nexti:x% (v)=x:y% (v)=y:qm=qm+x*y:ifqm>114then28 
36 nextv 
40 £forv=0to4:a=sint (rnd(.)*3) :b=int (rnd(.)*3)+1:r=int (rnd(.)*2) 
42 ifv=O0thena=at2:x1=b+x% (v)+1:d% (v)=1:ifrthend$ (v) =z 
44 ifv=1thena=at2:b=21-x% (v) -b:11=b-x1:d% (v)=-1:ifrthend$ (v)=z 
46 ifv=2thena=z-y% (v) -1-a:x2=b+x% (v)+1:d% (v)=1: 
ifd% (v-2) =1thend? (v) =-z 
48 ifv=3thena=z-y% (v) -1-a:b=21-x% (v) -b:12=b-x2:d% (v)=-1: 
ifrthend$ (v)=-z 
50 ifv<>4then66 Er 
54 h=3:y=x1:1=11:d% (v)=z:ifl1<1l2thenh=11:y=x2:1=12:d% (v)=-z 
56 ifaor (d% (0)=zand (d (3)=-zord% (1)=z) )thend% (v)=1:ifrthend% (v)=-1 
' 58 a=h+int (rnd(.)*4) :b=sint (rnd(.)*2)+2: 
x%% (v)=1-b-int (rnd(.)*1/2)-2:b=b+y 
60 ifx% (v)<2ord+sgn (d% (v) ) *d% (v)=89then22 
62 ifd+sgn (d% (v) ) *d% (v)=68thend? (v)=1 
66 gosub238:9% (v)=r:gosub238:f% (v)=r:ifg% (v)=£f% (v) then66 
68 ifv<>rothen?72 e 
70 gosub238:t=r:g=r:ift=0ort=f% (v)ort=g% (v) then66 
72 d=d+sgn (d% (v)) *d% (v) :gosub238:m% (v)=r 
78 fori=0tox% (v) :forn=0toy% (v) *zstepz:pokesta*z+b+n+i,l:nextn: 
nexti . 
4 80 pokes+tm% (v) ‚O:nextv 
84 forv=0to4:a=0:forn=0toz:u=s+m% (v)+d% (v)*n: 
ifpeek (u) =32anda=0thena=1 : 
86 ifpeek (u) <>32anda=lorpeek (u) =2then98 
88 ifa=0thennextn 
90 r=1:ifd% (v)=1ord% (v) =-1thenr=z 
92 ifpeek (utr) <>2andpeek (u-r) <>2thenpokeu, 2 
94 ifpeek (utr) <>320orpeek (u-r) <>32then98 
96 nextn 
98 r=int (rnd(.)*2) :m% (v)=8:d% (v)=2*r+pl:ifrthenm? (v)=5 
100 nextv 
106 fori=0t0505:u=peek (sti) :a=f:ifu>=zthena=w 
108 ifi<22thena=160 
110 pokesti,a:pokec+ti,0:nexti:q=t:pokej,106 
126 fi=-1:r=58:p=59:e=f:m=176:v=9 
130 pokestt, f:pokectt, 6:t=q:pokestt,pl:pokec+tt, 10:v=v-1: 
_ ifv=O0thenv=9:ph=ph-1 
132 ifph<1then248 
134 pe=int (sqr (ph) +1) +1 
138 fori=-ztozstepz: forn=-1tol:j=c+ti+tt+n:x=s+i+tt+tn:u=peek (x): 
 ifu=fthenpokej, 6 { 
140 fork=.to4:ifg%(k) +s=sttthenpokes+t21-k,p:pokect21-k,10+k: 
"Pg=pgt1:g%(k)=. 
.142 ifpg=10thenpokes+tg, 6l1:pokec+tg,5 
144. ifg% (k) +s=xthenpokex,p:pokej,10+k 
146 iff%(k)+s<>xore=kthen152 
150 pokex,d$% (k) :pokej,m% (k) :e=k:x% (k)=int (rnd(.)* (pe+ph) )+pe:ez=9 
152 next:next:next:py=int (t/z) :px=t-py*z:h=int (ph/10) :k=ph-h*10 


A5F6 
0B09 
2D50 


439E 
776F 


1991 
Ac20 
B063 
87B0 
86FB 
CD14 
D3FD 


72E9 
9E51 


02E2 
D600 


208E 


23A0 
3408 
6CBD 
EE2D 
31EB 
922F 
2124 


A8BD 
1F34 


B990 
6BEl 
3229 
2A3C 
8824 
34FC 
3064 
B039 
39E4 
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8483 
BB6B 
A3DB 


4344 
CBAE 
ES5B6 


AA38 


31AF 
A5F2 
Rd te) 
2CAA 
4EAD 
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156 print" {home} {wht} 
10:ife>9then164 
158 h=int (x% (e) /10) :k=x% (e) -h*10 


9{rvon} 


164 ife>zorez=0then190 


168 ifx<>pxtheni=-1:ifx<pxtheni=1 
L70 ify<>pythenn=-z:ify<pythenn=z 


174 ifu=10andfi<lithenfi=fitl:d=-1 


180 ifez=0thenfi=-1:e=f 

190 iffi=1then220 

192 gosub242:qg=t 

194 ifjand2theng=g+t1:p1=57 

196 ifjand4theng=q-z 

198 ifjandßtheng=g+tz 

200 ifjandl6theng=q-1:p1=56 

202 ifjand32andph<48thenph=ph+2 
204 i=peek(st+tgq) 


206 ift<>gandi<pthenfi=1:d=0:qg=t:gotol30 


208 ifi=6lthent$="! win !":90t0248 
210 ifj>Oandi<>wthen130 
212 goto190 


220 ez=0:i=x%(e) :x=ph:y=pe:n=3:ifdtheni=ph:x=x% (e) :n=4:d=-1:y=1 
222 i=i-int(rnd(.)*x/2)-y:d=d+l:pokes+n,p+l 


226 ifd=0thenph=i:g0t0232 
228 x%(e)-i 


232 ifx%(e)<lthenpokes+tf% (e) ,‚£f:f%(e)=0:pg=pg+1:g0t0126 


234 gosub242:ifj<>32then234 
236 goto130 


238 r=int (rnd(.)*x% (v) )+b+22* (int (rnd(.)*y%(v))+ta) :return 


":pokes,h+m:pokes+l,k+m:pokect2, 


160 pokes+5,d%(e) :pokec+5,m% (e) :pokes+t6,h+m:pokes+7,k+m 


166 q=f% (e) :y=int (q/z) :x=q-y*z:ez=ez-1:n=0:i=0:pokes+tg, f:pokec+tq, 6 


172 q=q+n+i:u=peek (c+g) andl5:ifu=6thenf% (e)=q 


78 pokestf%(e),d%(e) :pokec+£f% (e) ‚,m% (e) :ife=Dandfi=-1Ithene=f 


8535 


3787 
C6BA 
57ED 
8176 
$ DBD3 
11EE 
6747 
D846 
D9BB 
BF6F 
| B998 
7CD1 
8085 
5D06 
EA9E 
7135 
CEB1 
BE70 
6290 
A286 
19CA 
92DB 
21DD 
E85C 
1D06 
6D97 
3065 
4590 
| 5D9C 
| 0053 


242 pokejy+2,127:j=(notpeek (jy-1) and63) :ifpeek (jy) <>247thenj=jor2 |15E1 


244 pokejy+2,255:return 


248 print"{home}{rvon}you ";t$:wait197,32:run 


Der Kampf geht weiter 


Santa's Footrace 
Hero Of The 24th - Part Il 


Wir schreiben den 24sten Dezember 2022. 
Vergeblich hat der Grinch versucht in der Welt 
des VC20 das Weihnachtsfest zu sabotieren. 
Doch auch auf dem C64 lässt sich einiges 
durcheinanderbringen. 


Er könnte doch versuchen, alle Geschenke für 
den großen Weihnachtsmarkt zu stehlen um so 


62 Weihnachten auf dem Commodore 


4E8F 
D240 


System: C64 
Autor: aitsch 


doch noch das Weihnachtsfest zu ruinieren. Also 
verkleidet er sich als Weihnachtsmann und 
macht sich auf den Weg. 


Und wieder trittst Du auf den Plan. Hole dir die 
Geschenke, bevor der Grinch sie dir vor der 
Nase wegschnappt! 


Du steuerst den Weihnachtsmann mit dem unter dem Baum. Doch Vorsicht, der Grinch kann 

Joystick in Port 1 in alle acht Richtungen und sie dir wieder wegschnappen! 

sammelst die. Geschenke ein, bevor der Grinch 

sie erreicht. Hast du es geschafft insgesamt zehn Geschenke 
unter den Baum zu legen, ist das Fest gerettet. 

Hast du in Summe mehr Geschenke gesammelt 

als der Grinch, landen Sie auf dem Festplatz 


6 print"{clr}!'A;wE]c_ab@" 85BC 

9 print" !u{CBM-+} {CBM-C}k;w{rvon}D{rvof}itz{rvon}”{rvof}kac{rvon} | CCIC 
Dirvof}iaf@" 

12 print"u {CBM-D}{rvon} {rvof}cab{rvon}a{rvof}o{rvon}i{rvof} 069B 
s{rvon}O{rvof}eab{rvon}a{rvof}o{rvon}i{rvof}s{rvon}A{rvof} 
gabtz;w{rvon}O{rvof}eab{rvon}i{rvof}s{CBM-N}q{rvon}e{rvof}"; 

15 print"fab{rvon}O{rvof}e{rvon}O{frvof}ead{rvon}O{rvof}eab{rvon} 1809 
e{rvof}fab{rvon}O{rvof}e{rvon}O{rvof}eab{rvon}O{rvof}eab{rvon}) {rvof} 
cab{rvon}i{rvof}s;wc_@" 


18 print"u {CBM-D} {rvon}a{rvof}oad-ead-ead{rvön}#{rvof} 7B1B 
nad-ead-eadjmad-ead-ead{rvon}#{rvof}nad-ead-eadAgAgab"; 

21 print"'f'facAgAgab'f'fab-eabVeaf@" B208 

27 jy=56321:sp=52216:s0=53248:poke646,1:poke657,128: printchr$ (8): 99E4 
rn=820 

30 Bok&S6876,.:pohesl+24, 32:poke533T0, 2164poken4s, 200,.I=indiftir: 27B5 
bs=51200 

33 6bc=55296:cm=49152:pokes0+32,5:pokes0+33,15:pokes0+34,9: 242E 


pokes0+35,1 
h; 39 ss=1024:sd=54272:n1=sd:nh=sd+1:wf=sd+4:ad=sd+5:sr=sd+6:s1=sdt2: 7106 


sh=sd+3 
42 g9$ (1)="{yel}* (qui HH lyel}*tgen}" E007 
45 9$ (5)=g$ (1) :9$ (2)="# #":9$ (4)=g9$ (2) | C2B2 
48 d$="{yel}*{grn)###HHH#HHHhhhhhhhhlyel)*lgen}":printchr$ (147): 60DA 
printspc (10)d$ 
51 printspec (10) "#"spc (18) "#":printspc (10)"# {red} 1CB7 
santas footrace{grn} #" . 
54 printspc (10) "#"spc (18) "#":printspc (10)d$ 7B52 
"57 print"{down} {down} {down} {down} {down} {down} {down} {down} {down} 0489 
{down} {down} {down} {down} {down} {down}"spc (15)"{wht}by aitsch" 
60 printspc (4)"{down}fans helfen fans - danke taxim ;)" 6678 
66 m=0:b=-104:c=53248+2048:poke56334,peek (56334) and254:pokel, 61CF 
peek (1) and251 
69 £fori=.to119*8-1:a=peek (c+ti) :r=int (rnd (1) *4) +1: j | 4C79 
ifi<204thenpokernti,r 
72 ifi>935thenpokecm+36*8+i-936,0 29F4 
9 75 ifnot (i<616andi>511) thenpokecm+ti,a:goto99 5180 
v 78 print" {home} {down} {down} {down} {down} {down} {down}{down} AOAF 
—— {down} (hero of the 24th - part ii)" 
P 81 readd$: fort=1tolen (d$) :a=asc (mid$ (d$,t,1)) 7FF5 
84 ifa<57anda>48thenm= (a-49) *32:90t096 860D 
87 ifa=57thena=255+60-m A044 
90 ifa=48thena=60-m x 5B90 
93 pokecm+512+104+b, a-60+m:b= p+1 16C5 
96 nextt:i=935:ifb<Othen78 E3DB 
99 next F7F7 
102 fori=0t07:reada:pokecm+35*8-1+i,a:next 604D 
105 pokel,peek (1) or4:poke56334,peek (56334) orl 429C 


114 print"{home}"spc (13) "{down} {down} {down} {down} {down} {down} {down} | 44E2 
{down} {down} {down} {down} {wht}bitte warten !":m=0:b=-512:n=0:p=0:s=39 


. Nr. 5/Dez 2022 63 


217 
120 
123 
126 
129 
132 
135 
138 


readd$:fori=1tolen (d$) :a=asc (mid$ (d$,i,1)) :c=1:ifa<>46then126 
a=asc (mid$ (d$,i+1,1)) :c=asc (mid$ (d$,i+2,1))-48:i=i+3 

d=asc (mid$ (d$,i,1))-48:ifd>Othenc=10*c+d:i=i+1 
ifa<57anda>48thenm= (a-49) *32:g90t0144 

ifa=57thena=255+60-m 

ifa=48thena=60-m 

fort=1toc:poke52352+n, a-60+m:b= +14 n=n+1l:p=p+1 
ifp>12thenp=0:s=s-1:print" {home} {down} {down} {down} {down} {down} 


{down} {down} {down} {down} {down} {down} {lred}"spc(s)"M " 


141 
144 
150 


nextt 
nexti:ifb<0then117 
pokesp, pptpr:pokesp+t1l,gp:pokes0+21,0:pokes0+16,0:pokes0+27,0: 


pokes0+39,0 


153 


pokes0+40,13:pokes0+37,2:pokes0+38,1:pokes0+28,3:pokes0+21,0: 


pokes0+35,7 


159 px=252:py=142:pr=1:pp=50 :gp=pp+4:printchr$ (147) :gosub477 

162 print" {down} {down} {wht}$${orng}D{SHIFT-*}E{wht}$" 

165 print"{wht}$${lred}FGA{wht}$" 

168 print"{wht}$${1lred}AAHS$" 

174 forn=0to2:fori=0to4:a=peek (bs+121+i+n*40) :y= (n*40+i+bs+127): 
z=y+18 

177 c=peek (bc+121+i+n*40) :d= (n*40+i+bc+127-y) 

180 forb=ytozstep6:pokeb, a:poked+b, c:next:next:next 

186 z=rn:fori=0tol09:a=peek (bs+120+i) :c=peek (bc+120+i) :r=peek (z) -1: 
z=z+1 

189 b=a:ifa<66andr=3anda>63thenb=a+2 

192 pokebs+i+360,b:pokebc+360+i,c:b=a:ifa<66andr=2anda>63thenb=a+2 

195 pokebs+i+600,b:pokebc+600+i,c:b=a:ifa<66andr<2anda>63thenb=a+2 

198 pokebs+i+840,b:pokebc+840+i,c:next 

204 print"{home} {down} {down } {gen HH HH" 

207 £fori=0t020:print"# "spc(27)" #":next 

210 print"HHr HH home} {down} {down} " 

213 £fori=1to3:print" {down} {down} {down} 
# 5855 55955 39558 55895 5$$5 #" 

216 print"#% % % % % SH" 

219 print"# $$$5 $$55$ $$$$$ $$$5$ $$$$ #":next 

225 printspc (34)"{up} {up} {up} {up} {up} {up} {up} {up} {up} {up} {up} {lgrn} 
KJI" 

228 printspe (29) "{wht}%%$${lgrn}KLLJI" 

231 printspc (29) "{wht}%%${lgrn}KLLLLI" 

234 printspc (29) "{wht}%$$ {red} {CBM-L} {CBM-J}" 

237 print"{home}{down} {wht }---------------- --- u 

243 s=(int(rnd(.)*4)+1):r=(int(rnd(.)*3) +1) :9x=48*s+20:gy=48*r+46: 
gl=0:gd=1 

249 pokes0+21,3:n=bs: pg=32: Pg=0:za=8:2s=32:zg=32:g0sub363 

267 a=notpeek (jy) :p2=px:p3=py:if (aandlandpy>50) thenpy=py-4 

270 if(aand2andpy<233)thenpy=py+4 

273 if (aand4) thenpx=px-4:pr=0 

276 if(aand8) thenpx=px+4:pr=1 

282 ifa=-256thenpl=pp+2+pr:90t0294 

285 ifpx>255thenpx=px-4 

288 ifpl=pp+prthenpl=pl+2:90t0294 

291 pokewf,21:pl=pp+pr 

294 pokesp,pl:ko=bs+40*int ( (py-34) /8) +int ( (px-20) /8) :n=peek (ko) 

297 if£n=350rn>63thenpx=p2:py=p3 

300 i£fn=73thenpg=pg+1:zs=32:zg=73:t=0:gosub453:gosub363 

303 pokes0,px:pokes0+l,py:pokewf,0 

315 bd=gd:p2=gx:p3=gy:gl=gl+l:ifgd=1thengy=gy-4 
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B499 
A885 
CAAC 
ICE 
DF4F 
E286 
8D4E 
A156 


CCBO 
AC5D 
c85F 


55D1 


D068 
E92C 
2B23 
7398 
CC7E 


7A35 
c045 
3217 


79E8 
7E86 
D826 
DC7D 
621E 
C8EB 
9204 
E084 


E863 
54F4 
44D4 


F6AE 
66D9 
03D1 
8BC7 
OFF8 


2c1A 
FASF 
1E32 
4567 
D345 
7D35 
CI96A 
E640 
6F8D 
0422 
1F9E 
elze) 
c741 
0A97 


318 ifgd=2thengy=gy+4 ‚ 360A 


321 ifgd=3thengx=gx-4:gp=pp+4 7911 
324 ifgd=4thengx=gx+4 :gp=pp+5 5A6E 
327 ko=bs+40*int ( (gy-34) /8)+int ( (gx-16) /8) :n=peek (ko) 10CE 
330 ifn=73thenpg=pg-1:zs=73:zg9=32:t=1:gosub453:g0sub363 E67C 
333 ifn=350rp=36thengx=p2 :qgy=p3:n=37 E2D1 
336 ifn<>37thengoto354 E CD33 
342 gd=1l:ifgy<zythengd=2 B4E8 
345 if (gb=0orgy=zy) andnot (gx=zxorgy>220orgy<60) thengd=3: D057 
ifgx<zxthengd=4 . 
354 i=gp+2:ifgl>1theni=gp:gl=0 ‚ 9AE7 
357 pokesp+1,i:pokes0+2,gx:pokes0+3,9gy:90t0267 FC79 
363 pokeko,bg:x=15+pg:print"{home}"spc(x)" {lred}I " 441E 
366 printspe (6) "{up} {grn}N"spc (19) "{lred}M{wht}" f 34AC 
372 ifpg<landnot (pg=Oandzg=32) thengoto384 3478 
, 375 fori=552t0597:ifi=558theni=592 CE87 
- 378 ifpeek (bs+i)=zsthen:pokebs+i, zg:pokebc+ti, za:i=597 D2F7 
381 next ED46 


384 ifx=5theng$.(3)="# : {wht}der grinch hat gewonnen{grn} #":t=4: | 79BB 
e$="{grn}N{wht}":90t0426 


387 ifx=25theng$ (3)="# ({wht}santa claus hat gewonnen! {grn} Ir 3576 
t=2:c$="{lred}M{wht}":90t0426 
390 za=zatl:z1l=(int (rnd(1)*4) +1) :z2= (int (end (1)*3) +1): 9F5B 


=6*21+22*6*40+40 
393 a=1:ifint(rnd (1) *2)<1thena=-1 c9D5 
396 zx=z1*6:zy=z2*6+1:gb=int (rnd(1)*2): ifgb<1then408 0976 
402 zx=zx+ (int (rnd (1) *5)+1) *a:goto411 CER7 
408 zy=zy+ (int (rnd(1)*3)+1)*a öFEE 
iii 1=zx+zy*40:zx=zx*8+420:zy=(zy-1)*8+42:ifza=15thenza=s8 2043 
‚417 bg=peek (bstr) :ifbg=73then363 4338 
420 pokebc+tr, za:pokebs+tr, 73:return D6B2 
426 gosub453:b=bs+490:d=0:c=1:pokes0+21,0:print"{home}{down}{down} 2776 
(down } {down} " 
429 fori=1to5:printspc(4)g$ (i): next u D611 
432 ifpeek(jy)=239then159 ° . 5E83 
435 d=d+c:ifd=27thenc=-1 r 6AD4 
438 print"{home} {down} {down} {down} {down} {down} {down}{down}{down} c914 
"spe (A+q)" ";c$;" ":ifd=lthenc=l 


R 441 g0t0432 E3C3 
453 pokead,peek (ss+tl): BER RIR ERAD SSR, :pokewf,peek (ss) :x=3 7A3F 
B> a=peek (sstt*40+x) :b=peek (sstt*40+x+1) :c=l:ifa=1thenc=b:9g0t0471 |6110 


459 ifa=0thenpokesr, peek (sr) and15:fori=0t0300:next:pokewf,0: 46FC 
gosub477:return 
462 ifa=163thena=162 2032 
465 ifb=35thenb=34 41C8 
468 pokenl,a:pokenh,b F5SFC 
471 fori=0toc*25:next:x=x+2:90t0456 A298 
477 pokesd+24,8:pokead,2:pokesr,146:poken1,39:pokenh, 6:return A432 
483 dataaa3g98ggg993s4ccc3c99l1aa3g7s5rrr093scccc9900laqgq3ggqDOlppqq | 5832 


486 data7srrrp9993s5sss1sI9993g8gggegg005A8hh6d8hh7<8<7118xzyyOl>==k EF5D 


489 datal[7[8K7[[98wss91h2z1d2d6y2uhlxt2x@96y3v2@lt 7EF3 
492 data24,24,60,60,126,255,24,0 CF40 
498 data.019.3<01= =3101?3101?7p01>7@01k7h01k7h02yS<02y6<01a6<0254<01 44A2 
4210100 
501 data0215<06>005<.018.1@009005003[005007k<0Ok<01e8102e8102e3<02c4 | E18A 
102m7< 
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504 data01?1042101>2405<.013.3<01=3101?3101?7p01>7@01k7h01k7h02y5<0 | 6955 
2q46<01i 


507 data6<01a6<01k4<01a7<01a00k00£002£005<.012.1@009008003[005007K< | 407D 
Ok<0le8l 

510 data02e4102e7<02e3<02c7<0113<01=3<01?7<01>5<01>6<05<.06.1a3<01k | B2B4 
3101>71 

513 data02£7101£3h01?7h01=3<02=3101i13101?8101=3101=3<01?7<01>5<01d5 | 587E 
<01d2<0 

516 datald2101h@0p1051.06.1=3101a8101c5<01c6402m6<0207<01=3<01a3d01 | 6618 
a4l01k7< 

519 data01a3<01=3<01?7<01>5<01>2<01d2<01h2<0112101@p05i00014002y3<0 | DD42 
1g93<06elx 

522 data02e1h0k00a00a3<01a3<01k3<01e00a00K00F00F00F00Ff00f00K00I005i | B18F 
0001=310 


525 datala8101c5<07m6d07=6<01?7<01=3<01a3<01a3<01c7<01=5<01=3<01?7< | BCEE 
01>5<01> 


| 
528 data5<01>5<01>5<01>5<01?7<01=3105i | 3353 


Zum Abschluß 


Neulich so am Nordpol... 


Diese Wünsche heutzutage wieder... 
hier bin ich mir z.B. grad nicht sicher, ob "1541" 
wieder irgendso ein Computerzeug ist... 


...oder 'ne Postleitzahl. 


"1541" ist 'ne Postleitzahl, 
da bin ich mir sicher. 


Ach, wie wär's mit einer von diesen 
"Datassetten", damit wird der Bub doch 
bestimmt was anfangen können... 


Okay, und was 
sollen wir dem nun 
schenken? 


66 Weihnachten auf dem Commodore 


Nr. 5/Dez 2022 67 


Weihnachten auf dem Commodore 
21 BASIC-Programme zum Abtippen 


ein Community-Projekt des Forum64 


mit Programmen von: 
Mac Bacon, Endurion, Lynx, Roman Werner, 
Eric Beitz, arris, House Of Pain, Levty, Fepo, Vok-Gear, 
Goodwell, hexfile, muellerarmack, Dirk Reismann, 
mummelnase, Rainer Kappler, aitsch 


vielen Dank an alle Programm-Einsender 
sowie alle Unterstützer 


eihnachten 


auf dem Commodore 


